home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / BACKUP / MEMSZ160.ZIP;1 / MEMSIZE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-08  |  122.2 KB  |  3,837 lines
  1. /****************************************************************** MEMSIZE.C
  2.  *                                        *
  3.  * System Resources Monitor                            *
  4.  *                                        *
  5.  * Revision 1.60 (08 March 1993)                        *
  6.  *                                        *
  7.  * (C) Copyright 1991-1993 by Richard W. Papo.                    *
  8.  *                                        *
  9.  * This is 'FreeWare'.    As such, it may be copied and distributed        *
  10.  * freely.  If you want to use part of it in your own program, please        *
  11.  * give credit where credit is due.  If you want to change the            *
  12.  * program, please refer the change request to me or send me the        *
  13.  * modified source code.  I can be reached at CompuServe 72607,3111.        *
  14.  *                                        *
  15.  ****************************************************************************/
  16.  
  17. #define INCL_BASE
  18. #define INCL_PM
  19. #include <os2.h>
  20.  
  21. #include <direct.h>
  22. #include <process.h>
  23. #include <stdarg.h>
  24. #include <stddef.h>
  25. #include <stdio.h>
  26. #include <stdlib.h>
  27. #include <string.h>
  28. #include <time.h>
  29.  
  30. #include <sys\types.h>
  31. #include <sys\stat.h>
  32.  
  33. #include "debug.h"
  34. #include "support.h"
  35. #include "about.h"
  36. #include "settimer.h"
  37.  
  38. #include "memsize.h"
  39.  
  40.  
  41. /****************************************************************************
  42.  *                                        *
  43.  *             Definitions & Declarations                *
  44.  *                                        *
  45.  ****************************************************************************/
  46.  
  47.   // Constants
  48.  
  49. #define PROGRAM_NAME        "MEMSIZE"
  50. #define CLASS_NAME        "MEMSIZE"
  51.  
  52. enum
  53. {
  54.   ITEM_CLOCK,
  55.   ITEM_MEMORYFREE,
  56.   ITEM_SWAPFILESIZE,
  57.   ITEM_SWAPDISKFREE,
  58.   ITEM_SPOOLFILESIZE,
  59.   ITEM_CPULOAD,
  60.   ITEM_TASKCOUNT,
  61.   ITEM_BASE_COUNT
  62. } ;
  63.  
  64. #define WM_REFRESH        WM_USER
  65.  
  66. #define MAX_DRIVES      26
  67. #define DRIVE_ERROR      0xFFFFFFFFL
  68.  
  69.  
  70.   // Data Types
  71.  
  72. typedef struct          // Data structure for item to be monitored.
  73. {
  74.   CHAR     Name [80] ;           // Text for item's profile name.
  75.   BOOL     Flag ;            // Flag: Show this item at this time?
  76.   CHAR     Label [80] ;           // Text to display on left part of line.
  77.   ULONG  Value ;           // Value to display on right part of line.
  78.   CHAR     MenuOption [80] ;     // Text to display in system menu.
  79.   USHORT MenuId ;           // ID for use in system menu.
  80.   ULONG  (*NewValue)           // Function to determine new value.
  81.     (PVOID,USHORT) ;
  82.   USHORT Parm ;            // Parameter to pass to NewValue function.
  83.   USHORT Divisor ;           // Amount to divide value by before display.
  84.   CHAR     Suffix ;           // Character to place after value.
  85. }
  86. ITEM, *PITEM ;
  87.  
  88. typedef struct          // Parameters saved to system.
  89. {
  90.   PITEM  Items ;        // Items to display.
  91.   int     ItemCount ;
  92.  
  93.   SWP     Position ;        // Window size & location.
  94.   BOOL     fPosition ;
  95.  
  96.   BOOL     HideControls ;     // User options.
  97.   BOOL     fHideControls ;
  98.  
  99.   USHORT TimerInterval ;
  100.   BOOL     fTimerInterval ;
  101.  
  102.   CHAR     FontNameSize [80] ;    // Presentation Parameters
  103.   BOOL     fFontNameSize ;
  104.  
  105.   COLOR  BackColor ;
  106.   BOOL     fBackColor ;
  107.  
  108.   COLOR  TextColor ;
  109.   BOOL     fTextColor ;
  110. }
  111. PROFILE, *PPROFILE ;
  112.  
  113. typedef struct        // Data structure for window.
  114. {
  115.   HAB         Anchor ;
  116.   HMODULE     Library ;
  117.  
  118.   ULONG      MaxCount ;
  119.   ULONG      IdleCounter ;
  120.   ULONG      IdleCount ;
  121.   TID         IdleLoopTID ;
  122.   TID         MonitorLoopTID ;
  123.  
  124.   PROFILE     Profile ;
  125.  
  126.   HWND           hwndTitleBar ;
  127.   HWND           hwndSysMenu ;
  128.   HWND         hwndMinMax ;
  129.  
  130.   ULONG      Drives ;
  131.  
  132.   char           SwapPath [_MAX_PATH] ;
  133.   int         MinFree ;
  134.  
  135.   PCHAR      SpoolPath ;
  136.  
  137.   long         Width ;
  138.   long         Height ;
  139.  
  140.   COUNTRYINFO     CountryInfo ;
  141. }
  142. DATA, *PDATA ;
  143.  
  144. typedef struct
  145. {
  146.   HAB Anchor ;
  147.   HMODULE Library ;
  148. }
  149. PARMS, *PPARMS ;
  150.  
  151. typedef struct
  152. {
  153.   volatile PULONG Counter ;
  154.   PUSHORT Interval ;
  155.   HWND Owner ;
  156. }
  157. MONITOR_PARMS, *PMONITOR_PARMS ;
  158.  
  159.  
  160.   // Function Prototypes
  161.  
  162. extern void main ( int argc, PCHAR argv[] ) ;
  163.  
  164. static MRESULT EXPENTRY MessageProcessor
  165. (
  166.   HWND hwnd,
  167.   USHORT msg,
  168.   MPARAM mp1,
  169.   MPARAM mp2
  170. ) ;
  171.  
  172. static METHODFUNCTION Create ;
  173. static METHODFUNCTION Destroy ;
  174. static METHODFUNCTION Size ;
  175. static METHODFUNCTION SaveApplication ;
  176. static METHODFUNCTION Paint ;
  177. static METHODFUNCTION Command ;
  178. static METHODFUNCTION ResetDefaults ;
  179. static METHODFUNCTION HideControlsCmd ;
  180. static METHODFUNCTION SetTimer ;
  181. static METHODFUNCTION About ;
  182. static METHODFUNCTION ButtonDown ;
  183. static METHODFUNCTION ButtonDblClick ;
  184. static METHODFUNCTION PresParamChanged ;
  185. static METHODFUNCTION SysColorChange ;
  186. static METHODFUNCTION QueryKeysHelp ;
  187. static METHODFUNCTION HelpError ;
  188. static METHODFUNCTION ExtHelpUndefined ;
  189. static METHODFUNCTION HelpSubitemNotFound ;
  190. static METHODFUNCTION Refresh ;
  191.  
  192. static void GetProfile ( HAB Anchor, HMODULE Library, PPROFILE Profile ) ;
  193. static void PutProfile ( PPROFILE Profile ) ;
  194.  
  195. static PCHAR ScanSystemConfig ( PCHAR Keyword ) ;
  196.  
  197. static void ResizeWindow ( HWND hwnd, PPROFILE Profile ) ;
  198.  
  199. static void HideControls
  200. (
  201.   BOOL fHide,
  202.   HWND hwndFrame,
  203.   HWND hwndSysMenu,
  204.   HWND hwndTitleBar,
  205.   HWND hwndMinMax
  206. ) ;
  207.  
  208. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All ) ;
  209.  
  210. static ULONG ComputeTime       ( PDATA Data, USHORT Dummy ) ;
  211. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy ) ;
  212. static ULONG ComputeSwapSize   ( PDATA Data, USHORT Dummy ) ;
  213. static ULONG ComputeSwapFree   ( PDATA Data, USHORT Dummy ) ;
  214. static ULONG ComputeSpoolSize  ( PDATA Data, USHORT Dummy ) ;
  215. static ULONG ComputeCpuLoad    ( PDATA Data, USHORT Dummy ) ;
  216. static ULONG ComputeTaskCount  ( PDATA Data, USHORT Dummy ) ;
  217. static ULONG ComputeDriveFree  ( PDATA Data, USHORT Drive ) ;
  218.  
  219. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms ) ;
  220.  
  221. static VOID UpdateDriveList
  222. (
  223.   HAB Anchor,
  224.   HMODULE Library,
  225.   PPROFILE Profile,
  226.   ULONG OldDrives
  227. ) ;
  228.  
  229. static BOOL CheckDrive ( USHORT Drive ) ;
  230.  
  231. static VOID RebuildDisplayItems ( HWND hwnd, PDATA Data ) ;
  232.  
  233. static ULONG CalibrateLoadMeter ( void ) ;
  234.  
  235. static void _far _cdecl CounterThread ( PULONG Counter ) ;
  236.  
  237.  
  238.   // Global Data (private)
  239.  
  240. static ITEM Items [ ITEM_BASE_COUNT + MAX_DRIVES ] =
  241. {
  242.   {
  243.     "ShowTime",      TRUE, "", 0L, "", IDM_SHOW_CLOCK,
  244.     ComputeTime,       0,    0, ' '
  245.   },
  246.  
  247.   {
  248.     "ShowMemory",    TRUE, "", 0L, "", IDM_SHOW_MEMORY,
  249.     ComputeFreeMemory, 0, 1024, 'K'
  250.   },
  251.  
  252.   {
  253.     "ShowSwapsize",  TRUE, "", 0L, "", IDM_SHOW_SWAPSIZE,
  254.     ComputeSwapSize,   0, 1024, 'K'
  255.   },
  256.  
  257.   {
  258.     "ShowSwapfree",  TRUE, "", 0L, "", IDM_SHOW_SWAPFREE,
  259.     ComputeSwapFree,   0, 1024, 'K'
  260.   },
  261.  
  262.   {
  263.     "ShowSpoolSize", TRUE, "", 0L, "", IDM_SHOW_SPOOLSIZE,
  264.     ComputeSpoolSize,  0, 1024, 'K'
  265.   },
  266.  
  267.   {
  268.     "ShowCpuLoad",   TRUE, "", 0L, "", IDM_SHOW_CPULOAD,
  269.     ComputeCpuLoad,    0,    0, '%'
  270.   },
  271.  
  272.   {
  273.     "ShowTaskCount", TRUE, "", 0L, "", IDM_SHOW_TASKCOUNT,
  274.     ComputeTaskCount,  0,    0, ' '
  275.   }
  276. } ;
  277.  
  278.  
  279. /****************************************************************************
  280.  *                                        *
  281.  *    Program Mainline                            *
  282.  *                                        *
  283.  ****************************************************************************/
  284.  
  285. extern void main ( int argc, PCHAR argv[] )
  286. {
  287.  /***************************************************************************
  288.   * Local Declarations                                *
  289.   ***************************************************************************/
  290.  
  291.   HELPINIT HelpInit =
  292.   {
  293.     sizeof ( HELPINIT ),
  294.     0L,
  295.     NULL,
  296.     MAKEP ( 0xFFFF, ID_MAIN ),
  297.     0,
  298.     0,
  299.     0,
  300.     0,
  301.     NULL,
  302.     CMIC_HIDE_PANEL_ID,
  303.     PROGRAM_NAME ".HLP"
  304.   } ;
  305.  
  306.   HAB Anchor ;
  307.   FRAMECDATA fcdata ;
  308.   CHAR HelpTitle [80] ;
  309.   HWND hwndClient ;
  310.   HWND hwndFrame ;
  311.   HWND hwndHelp ;
  312.   HMODULE Library ;
  313.   HMQ MessageQueue ;
  314.   PARMS Parms ;
  315.   QMSG QueueMessage ;
  316.   BOOL Reset ;
  317.   CHAR ResetCommand [40] ;
  318.   CHAR Title [80] ;
  319.  
  320.  /***************************************************************************
  321.   * Initialize for PM.    Abort if unable to do so.                *
  322.   ***************************************************************************/
  323.  
  324.   Anchor = WinInitialize ( 0 ) ;
  325.   if ( Anchor == NULL )
  326.     return ;
  327.  
  328.  /***************************************************************************
  329.   * Create the application message queue.  Abort if unable to do so.        *
  330.   ***************************************************************************/
  331.  
  332.   MessageQueue = WinCreateMsgQueue ( Anchor, 0 ) ;
  333.   if ( MessageQueue == NULL )
  334.   {
  335.     WinTerminate ( Anchor ) ;
  336.     return ;
  337.   }
  338.  
  339.  /***************************************************************************
  340.   * Now WIN and GPI calls will work.  Open the language DLL.            *
  341.   ***************************************************************************/
  342.  
  343.   if ( DosLoadModule ( NULL, 0, PROGRAM_NAME, &Library ) )
  344.   {
  345.     Debug ( HWND_DESKTOP, "ERROR: Unable to load " PROGRAM_NAME ".DLL." ) ;
  346.     WinDestroyMsgQueue ( MessageQueue ) ;
  347.     WinTerminate ( Anchor ) ;
  348.     return ;
  349.   }
  350.  
  351.  /***************************************************************************
  352.   * Register the window class.                            *
  353.   ***************************************************************************/
  354.  
  355.   if ( NOT WinRegisterClass ( Anchor, CLASS_NAME, MessageProcessor,
  356.     CS_MOVENOTIFY, sizeof(PVOID) ) )
  357.   {
  358.     CHAR Message [200] ;
  359.     char Title [80] ;
  360.  
  361.     WinLoadString ( Anchor, Library, IDS_TITLE,
  362.       sizeof(Title), Title ) ;
  363.     WinLoadString ( Anchor, Library, IDS_ERROR_WINREGISTERCLASS,
  364.       sizeof(Message), Message ) ;
  365.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  366.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  367.  
  368.     WinDestroyMsgQueue ( MessageQueue ) ;
  369.     WinTerminate ( Anchor ) ;
  370.     return ;
  371.   }
  372.  
  373.  /***************************************************************************
  374.   * Decipher command-line parameters.                        *
  375.   ***************************************************************************/
  376.  
  377.   WinLoadString ( Anchor, Library, IDS_PARMS_RESET, sizeof(ResetCommand), ResetCommand ) ;
  378.   Reset = FALSE ;
  379.  
  380.   while ( --argc )
  381.   {
  382.     argv ++ ;
  383.     strupr ( *argv ) ;
  384.     if ( *argv[0] == '?' )
  385.     {
  386.       CHAR Message [200] ;
  387.       CHAR Title [80] ;
  388.  
  389.       WinLoadString ( Anchor, Library, IDS_TITLE,
  390.     sizeof(Title), Title ) ;
  391.       WinLoadString ( Anchor, Library, IDS_PARAMETERLIST,
  392.     sizeof(Message), Message ) ;
  393.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  394.     Title, 0, MB_ENTER | MB_NOICON ) ;
  395.  
  396.       WinDestroyMsgQueue ( MessageQueue ) ;
  397.       WinTerminate ( Anchor ) ;
  398.       return ;
  399.     }
  400.  
  401.     if ( !strcmp ( *argv, ResetCommand ) )
  402.     {
  403.       Reset = TRUE ;
  404.       continue ;
  405.     }
  406.  
  407.     {
  408.       CHAR Format [200] ;
  409.       CHAR Message [200] ;
  410.       CHAR Title [80] ;
  411.  
  412.       WinLoadString ( Anchor, Library, IDS_TITLE,
  413.     sizeof(Title), Title ) ;
  414.       WinLoadString ( Anchor, Library, IDS_ERROR_INVALIDPARM,
  415.     sizeof(Format), Format ) ;
  416.       sprintf ( Message, Format, *argv ) ;
  417.       WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  418.     Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  419.  
  420.       WinDestroyMsgQueue ( MessageQueue ) ;
  421.       WinTerminate ( Anchor ) ;
  422.       return ;
  423.     }
  424.   }
  425.  
  426.  /***************************************************************************
  427.   * If we're going to reset the program's profile, do it now.               *
  428.   ***************************************************************************/
  429.  
  430.   if ( Reset )
  431.   {
  432.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  433.   }
  434.  
  435.  /***************************************************************************
  436.   * Create the help instance.                            *
  437.   ***************************************************************************/
  438.  
  439.   WinLoadString ( Anchor, Library, IDS_HELPTITLE, sizeof(HelpTitle), HelpTitle ) ;
  440.   HelpInit.pszHelpWindowTitle = HelpTitle ;
  441.  
  442.   hwndHelp = WinCreateHelpInstance ( Anchor, &HelpInit ) ;
  443.  
  444.   if ( hwndHelp == NULL )
  445.   {
  446.     CHAR Message [200] ;
  447.     char Title [80] ;
  448.  
  449.     WinLoadString ( Anchor, Library, IDS_TITLE,
  450.       sizeof(Title), Title ) ;
  451.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEHELPINSTANCE,
  452.       sizeof(Message), Message ) ;
  453.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  454.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  455.   }
  456.  
  457.  /***************************************************************************
  458.   * Create the frame window.                            *
  459.   ***************************************************************************/
  460.  
  461.   fcdata.cb = sizeof(fcdata) ;
  462.   fcdata.flCreateFlags =
  463.     FCF_TITLEBAR | FCF_SYSMENU | FCF_BORDER |
  464.       FCF_ICON | FCF_MINBUTTON | FCF_NOBYTEALIGN | FCF_ACCELTABLE ;
  465.   fcdata.hmodResources = 0 ;
  466.   fcdata.idResources   = ID_MAIN ;
  467.  
  468.   hwndFrame = WinCreateWindow
  469.   (
  470.     HWND_DESKTOP,
  471.     WC_FRAME,
  472.     "",
  473.     0,
  474.     0, 0, 0, 0,
  475.     HWND_DESKTOP,
  476.     HWND_TOP,
  477.     ID_MAIN,
  478.     &fcdata,
  479.     NULL
  480.   ) ;
  481.  
  482.   if ( hwndFrame == NULL )
  483.   {
  484.     CHAR Message [200] ;
  485.     char Title [80] ;
  486.  
  487.     WinLoadString ( Anchor, Library, IDS_TITLE,
  488.       sizeof(Title), Title ) ;
  489.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEFRAME,
  490.       sizeof(Message), Message ) ;
  491.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  492.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  493.  
  494.     WinDestroyMsgQueue ( MessageQueue ) ;
  495.     WinTerminate ( Anchor ) ;
  496.     return ;
  497.   }
  498.  
  499.  /***************************************************************************
  500.   * Set the title.                                *
  501.   ***************************************************************************/
  502.  
  503.   WinLoadString ( Anchor, Library, IDS_TITLE, sizeof(Title), Title ) ;
  504.   WinSetWindowText ( hwndFrame, Title ) ;
  505.  
  506.  /***************************************************************************
  507.   * Associate the help instance with the frame window.                *
  508.   ***************************************************************************/
  509.  
  510.   if ( hwndHelp )
  511.   {
  512.     WinAssociateHelpInstance ( hwndHelp, hwndFrame ) ;
  513.   }
  514.  
  515.  /***************************************************************************
  516.   * Create client window.  If this fails, destroy frame and return.        *
  517.   ***************************************************************************/
  518.  
  519.   Parms.Anchor = Anchor ;
  520.   Parms.Library = Library ;
  521.  
  522.   hwndClient = WinCreateWindow
  523.   (
  524.     hwndFrame,
  525.     CLASS_NAME,
  526.     "",
  527.     0,
  528.     0, 0, 0, 0,
  529.     hwndFrame,
  530.     HWND_BOTTOM,
  531.     FID_CLIENT,
  532.     &Parms,
  533.     NULL
  534.   ) ;
  535.  
  536.   if ( hwndClient == NULL )
  537.   {
  538.     CHAR Message [200] ;
  539.     char Title [80] ;
  540.  
  541.     WinLoadString ( Anchor, Library, IDS_TITLE,
  542.       sizeof(Title), Title ) ;
  543.     WinLoadString ( Anchor, Library, IDS_ERROR_WINCREATEWINDOW,
  544.       sizeof(Message), Message ) ;
  545.     WinMessageBox ( HWND_DESKTOP, HWND_DESKTOP, Message,
  546.       Title, 0, MB_ENTER | MB_ICONEXCLAMATION ) ;
  547.  
  548.     WinDestroyWindow ( hwndFrame ) ;
  549.     WinDestroyMsgQueue ( MessageQueue ) ;
  550.     WinTerminate ( Anchor ) ;
  551.     return ;
  552.   }
  553.  
  554.  /***************************************************************************
  555.   * Wait for and process messages to the window's queue.  Terminate         *
  556.   *   when the WM_QUIT message is received.                    *
  557.   ***************************************************************************/
  558.  
  559.   while ( WinGetMsg ( Anchor, &QueueMessage, NULL, 0, 0 ) )
  560.   {
  561.     WinDispatchMsg ( Anchor, &QueueMessage ) ;
  562.   }
  563.  
  564.  /***************************************************************************
  565.   * Destroy the window.                             *
  566.   ***************************************************************************/
  567.  
  568.   WinDestroyWindow ( hwndFrame ) ;
  569.  
  570.  /***************************************************************************
  571.   * If help instance has been created, get rid of it.                *
  572.   ***************************************************************************/
  573.  
  574.   if ( hwndHelp )
  575.   {
  576.     WinDestroyHelpInstance ( hwndHelp ) ;
  577.   }
  578.  
  579.  /***************************************************************************
  580.   * Release the library, if one's been loaded.                              *
  581.   ***************************************************************************/
  582.  
  583.   if ( Library )
  584.   {
  585.     DosFreeModule ( Library ) ;
  586.   }
  587.  
  588.  /***************************************************************************
  589.   * Discard all that was requested of the system and terminate.         *
  590.   ***************************************************************************/
  591.  
  592.   WinDestroyMsgQueue ( MessageQueue ) ;
  593.  
  594.   WinTerminate ( Anchor ) ;
  595. }
  596.  
  597. /****************************************************************************
  598.  *                                        *
  599.  *    Window Message Processor                        *
  600.  *                                        *
  601.  ****************************************************************************/
  602.  
  603. static MRESULT EXPENTRY MessageProcessor
  604. (
  605.   HWND hwnd,
  606.   USHORT msg,
  607.   MPARAM mp1,
  608.   MPARAM mp2
  609. )
  610. {
  611.  /***************************************************************************
  612.   * Local Declarations                                *
  613.   ***************************************************************************/
  614.  
  615.   static METHOD Methods [] =
  616.   {
  617.     { WM_CREATE,        Create            },
  618.     { WM_DESTROY,        Destroy         },
  619.     { WM_SIZE,            Size            },
  620.     { WM_MOVE,            Size            },
  621.     { WM_SAVEAPPLICATION,    SaveApplication     },
  622.     { WM_PAINT,         Paint            },
  623.     { WM_BUTTON1DOWN,        ButtonDown        },
  624.     { WM_BUTTON2DOWN,        ButtonDown        },
  625.     { WM_BUTTON1DBLCLK,     ButtonDblClick        },
  626.     { WM_BUTTON2DBLCLK,     ButtonDblClick        },
  627.     { WM_PRESPARAMCHANGED,    PresParamChanged    },
  628.     { WM_SYSCOLORCHANGE,    SysColorChange        },
  629.     { WM_COMMAND,        Command         },
  630.     { HM_QUERY_KEYS_HELP,    QueryKeysHelp        },
  631.     { HM_ERROR,         HelpError        },
  632.     { HM_EXT_HELP_UNDEFINED,    ExtHelpUndefined    },
  633.     { HM_HELPSUBITEM_NOT_FOUND, HelpSubitemNotFound },
  634.     { WM_REFRESH,        Refresh         }
  635.   } ;
  636.  
  637.  /***************************************************************************
  638.   * Dispatch the message according to the method table and return the        *
  639.   *   result.  Any messages not defined above get handled by the system     *
  640.   *   default window processor.                         *
  641.   ***************************************************************************/
  642.  
  643.   return ( DispatchMessage ( hwnd, msg, mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), WinDefWindowProc ) ) ;
  644. }
  645.  
  646. /****************************************************************************
  647.  *                                        *
  648.  *    Create the main window.                         *
  649.  *                                        *
  650.  ****************************************************************************/
  651.  
  652. static MRESULT APIENTRY Create
  653. (
  654.   HWND hwnd,
  655.   USHORT msg,
  656.   MPARAM mp1,
  657.   MPARAM mp2
  658. )
  659. {
  660.  /***************************************************************************
  661.   *                Declarations                    *
  662.   ***************************************************************************/
  663.  
  664.   static MENUITEM MenuItems [] =
  665.   {
  666.     { MIT_END, MIS_TEXT,      0, IDM_SAVE_APPLICATION, NULL, 0 },
  667.     { MIT_END, MIS_TEXT,      0, IDM_RESET_DEFAULTS,   NULL, 0 },
  668.     { MIT_END, MIS_TEXT,      0, IDM_HIDE_CONTROLS,    NULL, 0 },
  669.     { MIT_END, MIS_TEXT,      0, IDM_SET_TIMER,        NULL, 0 },
  670.     { MIT_END, MIS_SUBMENU,   0, IDM_DISPLAY_ITEMS,    NULL, 0 },
  671.   } ;
  672.  
  673.   static MENUITEM MenuSeparator =
  674.     { MIT_END, MIS_SEPARATOR, 0, 0, NULL, 0 } ;
  675.  
  676.   static MENUITEM MenuAbout =
  677.     { MIT_END, MIS_TEXT, 0, IDM_ABOUT, NULL, 0 } ;
  678.  
  679.   static MENUITEM MenuHelp =
  680.     { MIT_END, MIS_HELP, 0, 0, NULL, 0 } ;
  681.  
  682.   static MENUITEM MenuItem =
  683.     { MIT_END, MIS_TEXT, 0, 0, NULL, 0 } ;
  684.  
  685.   char AboutText [80] ;
  686.   PDATA Data ;
  687.   USHORT Drive ;
  688.   char HelpText [80] ;
  689.   HPS hPS ;
  690.   HWND hwndFrame ;
  691.   SHORT i ;
  692.   PMONITOR_PARMS MonitorParms ;
  693.   PPARMS Parms ;
  694.   RECTL Rectangle ;
  695.   ULONG Size ;
  696.   PCHAR Swappath ;
  697.   char Title [80] ;
  698.  
  699.  /***************************************************************************
  700.   * Allocate instance data.                            *
  701.   ***************************************************************************/
  702.  
  703.   Data = malloc ( sizeof(DATA) ) ;
  704.  
  705.   memset ( Data, 0, sizeof(DATA) ) ;
  706.  
  707.   WinSetWindowPtr ( hwnd, QWL_USER, Data ) ;
  708.  
  709.  /***************************************************************************
  710.   * Grab any parameters from the WM_CREATE message.                *
  711.   ***************************************************************************/
  712.  
  713.   Parms = (PPARMS) PVOIDFROMMP ( mp1 ) ;
  714.  
  715.   Data->Anchor = Parms->Anchor ;
  716.   Data->Library = Parms->Library ;
  717.  
  718.  /***************************************************************************
  719.   * Get the current drive mask.                         *
  720.   ***************************************************************************/
  721.  
  722.   DosQCurDisk ( &Drive, &Data->Drives ) ;
  723.  
  724.  /***************************************************************************
  725.   * Get profile data.                                *
  726.   ***************************************************************************/
  727.  
  728.   GetProfile ( Data->Anchor, Data->Library, &Data->Profile ) ;
  729.  
  730.  /***************************************************************************
  731.   * Get country information.                            *
  732.   ***************************************************************************/
  733.  
  734.   {
  735.     COUNTRYCODE CountryCode ;
  736.     USHORT Count ;
  737.     USHORT Status ;
  738.  
  739.     CountryCode.country = 0 ;
  740.     CountryCode.codepage = 0 ;
  741.  
  742.     Status = DosGetCtryInfo ( sizeof(Data->CountryInfo), &CountryCode,
  743.       &Data->CountryInfo, &Count ) ;
  744.     if ( Status )
  745.     {
  746.       char Message [80] ;
  747.       WinLoadMessage ( Data->Anchor, Data->Library, IDS_ERROR_DOSGETCTRYINFO,
  748.     sizeof(Message), Message ) ;
  749.       Debug ( hwnd, Message, Status ) ;
  750.       Data->CountryInfo.fsDateFmt = DATEFMT_MM_DD_YY ;
  751.       Data->CountryInfo.fsTimeFmt = 0 ;
  752.       Data->CountryInfo.szDateSeparator[0] = '/' ;
  753.       Data->CountryInfo.szDateSeparator[1] = 0 ;
  754.       Data->CountryInfo.szTimeSeparator[0] = ':' ;
  755.       Data->CountryInfo.szTimeSeparator[1] = 0 ;
  756.       Data->CountryInfo.szThousandsSeparator[0] = ',' ;
  757.       Data->CountryInfo.szThousandsSeparator[1] = 0 ;
  758.     }
  759.   }
  760.  
  761.  /***************************************************************************
  762.   * Get the frame handle.                            *
  763.   ***************************************************************************/
  764.  
  765.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  766.  
  767.  /***************************************************************************
  768.   * Get the control window handles.                        *
  769.   ***************************************************************************/
  770.  
  771.   Data->hwndSysMenu  = WinWindowFromID ( hwndFrame, FID_SYSMENU  ) ;
  772.   Data->hwndTitleBar = WinWindowFromID ( hwndFrame, FID_TITLEBAR ) ;
  773.   Data->hwndMinMax   = WinWindowFromID ( hwndFrame, FID_MINMAX   ) ;
  774.  
  775.  /***************************************************************************
  776.   * Create the submenu window for Display Items.                *
  777.   ***************************************************************************/
  778.  
  779.   {
  780.     MENUITEM MenuItem ;
  781.     HWND hwndSysSubMenu ;
  782.     HWND hwndSubMenu ;
  783.     SHORT idSysMenu ;
  784.  
  785.     idSysMenu = SHORT1FROMMR ( WinSendMsg ( Data->hwndSysMenu, MM_ITEMIDFROMPOSITION, NULL, NULL ) ) ;
  786.     WinSendMsg ( Data->hwndSysMenu, MM_QUERYITEM, MPFROM2SHORT(idSysMenu,FALSE), MPFROMP(&MenuItem) ) ;
  787.     hwndSysSubMenu = MenuItem.hwndSubMenu ;
  788.  
  789.     hwndSubMenu = WinCreateWindow ( hwndSysSubMenu, WC_MENU, "",
  790.       WS_VISIBLE | WS_CLIPCHILDREN | WS_CLIPSIBLINGS,
  791.       0, 0, 0, 0, hwndSysSubMenu, HWND_TOP, IDM_DISPLAY_ITEMS, NULL, NULL ) ;
  792.  
  793.     MenuItems[IDM_DISPLAY_ITEMS-MenuItems[0].id].hwndSubMenu = hwndSubMenu ;
  794.   }
  795.  
  796.  /***************************************************************************
  797.   * Add basic extensions to the system menu.                    *
  798.   ***************************************************************************/
  799.  
  800.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  801.  
  802.   for ( i=0; i<sizeof(MenuItems)/sizeof(MenuItems[0]); i++ )
  803.   {
  804.     char MenuText [80] ;
  805.     WinLoadString ( Data->Anchor, Data->Library, i+IDS_SAVE_APPLICATION, sizeof(MenuText), MenuText ) ;
  806.     AddSysMenuItem ( hwndFrame, MenuItems+i, MenuText ) ;
  807.   }
  808.  
  809.  /***************************************************************************
  810.   * Add 'About' to the system menu.                        *
  811.   ***************************************************************************/
  812.  
  813.   AddSysMenuItem ( hwndFrame, &MenuSeparator, NULL ) ;
  814.   WinLoadString ( Data->Anchor, Data->Library, IDS_ABOUT, sizeof(AboutText), AboutText ) ;
  815.   AddSysMenuItem ( hwndFrame, &MenuAbout, AboutText ) ;
  816.  
  817.  /***************************************************************************
  818.   * Add 'Help' to the system menu.                        *
  819.   ***************************************************************************/
  820.  
  821.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELP, sizeof(HelpText), HelpText ) ;
  822.   AddSysMenuItem ( hwndFrame, &MenuHelp, HelpText ) ;
  823.  
  824.  /***************************************************************************
  825.   * Build the display items menu.                        *
  826.   ***************************************************************************/
  827.  
  828.   RebuildDisplayItems ( hwnd, Data ) ;
  829.  
  830.  /***************************************************************************
  831.   * Get the SWAPPATH statement from CONFIG.SYS.                 *
  832.   ***************************************************************************/
  833.  
  834.   Swappath = ScanSystemConfig ( "SWAPPATH" ) ;
  835.  
  836.   if ( Swappath == NULL )
  837.   {
  838.     Swappath = "C:\\OS2\\SYSTEM 0" ;
  839.   }
  840.  
  841.   strupr ( Swappath ) ;
  842.  
  843.   sscanf ( Swappath, "%s %i", Data->SwapPath, &Data->MinFree ) ;
  844.  
  845.  /***************************************************************************
  846.   * Find out where the spool work directory is.                 *
  847.   ***************************************************************************/
  848.  
  849.   Data->SpoolPath = NULL ;
  850.  
  851.   if ( PrfQueryProfileSize ( HINI_PROFILE, "PM_SPOOLER", "DIR", &Size ) )
  852.   {
  853.     Data->SpoolPath = malloc ( (int)Size ) ;
  854.     if ( Data->SpoolPath )
  855.     {
  856.       if ( PrfQueryProfileData ( HINI_PROFILE, "PM_SPOOLER", "DIR", Data->SpoolPath, &Size ) )
  857.       {
  858.     BYTE *p ;
  859.     p = strchr ( Data->SpoolPath, ';' ) ;
  860.     if ( p )
  861.     {
  862.       *p = 0 ;
  863.     }
  864.       }
  865.       else
  866.       {
  867.     free ( Data->SpoolPath ) ;
  868.     Data->SpoolPath = FALSE ;
  869.       }
  870.     }
  871.   }
  872.  
  873.  /***************************************************************************
  874.   * Calibrate the old-style load meter, if the high resolution timer's      *
  875.   *   available.                                *
  876.   ***************************************************************************/
  877.  
  878.   Data->MaxCount = CalibrateLoadMeter ( ) ;
  879.   Data->MaxCount = (ULONG) max ( 1L, Data->MaxCount ) ;
  880.  
  881.  /***************************************************************************
  882.   * Start the new load meter.                            *
  883.   ***************************************************************************/
  884.  
  885.   Data->IdleLoopTID = _beginthread ( CounterThread, NULL, 1024, &Data->IdleCounter ) ;
  886.   DosSetPrty ( PRTYS_THREAD, PRTYC_IDLETIME, PRTYD_MINIMUM, Data->IdleLoopTID ) ;
  887.   DosSuspendThread ( Data->IdleLoopTID ) ;
  888.  
  889.   Data->IdleCount = 0 ;
  890.   Data->IdleCounter = 0 ;
  891.  
  892.   if ( Data->Profile.Items[ITEM_CPULOAD].Flag )
  893.   {
  894.     DosResumeThread ( Data->IdleLoopTID ) ;
  895.   }
  896.  
  897.   MonitorParms = malloc ( sizeof(*MonitorParms) ) ;
  898.   MonitorParms->Counter = & Data->IdleCounter ;
  899.   MonitorParms->Interval = & Data->Profile.TimerInterval ;
  900.   MonitorParms->Owner = hwnd ;
  901.   Data->MonitorLoopTID = _beginthread ( MonitorLoopThread, NULL, 8192, MonitorParms ) ;
  902.  
  903.  /***************************************************************************
  904.   * Add the program to the system task list.                    *
  905.   ***************************************************************************/
  906.  
  907.   WinLoadString ( Data->Anchor, Data->Library, IDS_TITLE, sizeof(Title), Title ) ;
  908.   Add2TaskList ( hwndFrame, Title ) ;
  909.  
  910.  /***************************************************************************
  911.   * Position & size the window.  For some reason, we must move and size     *
  912.   *   the window to the saved position before applying the resizing        *
  913.   *   function as fine-tuning.    Maybe the positioning request fails if        *
  914.   *   the window has no size?                            *
  915.   ***************************************************************************/
  916.  
  917.   WinSetWindowPos ( hwndFrame, HWND_BOTTOM,
  918.     Data->Profile.Position.x, Data->Profile.Position.y,
  919.     Data->Profile.Position.cx, Data->Profile.Position.cy,
  920.     SWP_SIZE | SWP_MOVE | SWP_ZORDER |
  921.     ( Data->Profile.Position.fs & SWP_MINIMIZE ) |
  922.     ( Data->Profile.Position.fs & SWP_RESTORE ) ) ;
  923.  
  924.   ResizeWindow ( hwnd, &Data->Profile ) ;
  925.  
  926.  /***************************************************************************
  927.   * Hide the controls if so configured.                     *
  928.   ***************************************************************************/
  929.  
  930.   if ( Data->Profile.HideControls
  931.     AND NOT ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  932.   {
  933.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  934.  
  935.     HideControls
  936.     (
  937.       TRUE,
  938.       hwndFrame,
  939.       Data->hwndSysMenu,
  940.       Data->hwndTitleBar,
  941.       Data->hwndMinMax
  942.     ) ;
  943.   }
  944.  
  945.  /***************************************************************************
  946.   * Get the saved presentation parameters and reinstate them.            *
  947.   ***************************************************************************/
  948.  
  949.   if ( Data->Profile.fFontNameSize )
  950.   {
  951.     WinSetPresParam ( hwnd, PP_FONTNAMESIZE,
  952.       strlen(Data->Profile.FontNameSize)+1, Data->Profile.FontNameSize ) ;
  953.   }
  954.  
  955.   if ( Data->Profile.fBackColor )
  956.   {
  957.     WinSetPresParam ( hwnd, PP_BACKGROUNDCOLOR,
  958.       sizeof(Data->Profile.BackColor), &Data->Profile.BackColor ) ;
  959.   }
  960.  
  961.   if ( Data->Profile.fTextColor )
  962.   {
  963.     WinSetPresParam ( hwnd, PP_FOREGROUNDCOLOR,
  964.       sizeof(Data->Profile.TextColor), &Data->Profile.TextColor ) ;
  965.   }
  966.  
  967.  /***************************************************************************
  968.   * Determine our font size.                            *
  969.   ***************************************************************************/
  970.  
  971.   hPS = WinGetPS ( hwnd ) ;
  972.   WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  973.   WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  974.   Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  975.   Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  976.   WinReleasePS ( hPS ) ;
  977.  
  978.  /***************************************************************************
  979.   * Now that the window's in order, make it visible.                        *
  980.   ***************************************************************************/
  981.  
  982.   WinShowWindow ( hwndFrame, TRUE ) ;
  983.  
  984.  /***************************************************************************
  985.   * Success?  Return no error.                            *
  986.   ***************************************************************************/
  987.  
  988.   return ( 0 ) ;
  989.  
  990.   hwnd = hwnd ;
  991.   msg = msg ;
  992.   mp1 = mp1 ;
  993.   mp2 = mp2 ;
  994. }
  995.  
  996. /****************************************************************************
  997.  *                                        *
  998.  *    Destroy main window.                            *
  999.  *                                        *
  1000.  ****************************************************************************/
  1001.  
  1002. static MRESULT APIENTRY Destroy
  1003. (
  1004.   HWND hwnd,
  1005.   USHORT msg,
  1006.   MPARAM mp1,
  1007.   MPARAM mp2
  1008. )
  1009. {
  1010.  /***************************************************************************
  1011.   *                Declarations                    *
  1012.   ***************************************************************************/
  1013.  
  1014.   PDATA Data ;
  1015.  
  1016.  /***************************************************************************
  1017.   * Find the instance data.                            *
  1018.   ***************************************************************************/
  1019.  
  1020.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1021.  
  1022.  /***************************************************************************
  1023.   * Release the instance memory.                        *
  1024.   ***************************************************************************/
  1025.  
  1026.   free ( Data ) ;
  1027.  
  1028.  /***************************************************************************
  1029.   * We're done.                                                             *
  1030.   ***************************************************************************/
  1031.  
  1032.   return ( MRFROMSHORT ( 0 ) ) ;
  1033.  
  1034.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1035. }
  1036.  
  1037. /****************************************************************************
  1038.  *                                        *
  1039.  *    Process window resize message.                        *
  1040.  *                                        *
  1041.  ****************************************************************************/
  1042.  
  1043. static MRESULT APIENTRY Size
  1044. (
  1045.   HWND hwnd,
  1046.   USHORT msg,
  1047.   MPARAM mp1,
  1048.   MPARAM mp2
  1049. )
  1050. {
  1051.  /***************************************************************************
  1052.   *                Declarations                    *
  1053.   ***************************************************************************/
  1054.  
  1055.   PDATA Data ;
  1056.  
  1057.   HWND hwndFrame ;
  1058.   SWP Position ;
  1059.  
  1060.  /***************************************************************************
  1061.   * Find the instance data.                            *
  1062.   ***************************************************************************/
  1063.  
  1064.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1065.  
  1066.  /***************************************************************************
  1067.   * Find out the window's new position and size.                            *
  1068.   ***************************************************************************/
  1069.  
  1070.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1071.  
  1072.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1073.  
  1074.   if ( NOT ( Position.fs & SWP_MINIMIZE )
  1075.     AND NOT ( Position.fs & SWP_MAXIMIZE ) )
  1076.   {
  1077.     Data->Profile.Position.x = Position.x ;
  1078.     Data->Profile.Position.y = Position.y ;
  1079.  
  1080.     Data->Profile.Position.cx = Position.cx ;
  1081.     Data->Profile.Position.cy = Position.cy ;
  1082.   }
  1083.  
  1084.  /***************************************************************************
  1085.   * If hiding the controls . . .                        *
  1086.   ***************************************************************************/
  1087.  
  1088.   if ( Data->Profile.HideControls )
  1089.   {
  1090.  
  1091.    /*************************************************************************
  1092.     * If changing to or from minimized state . . .                *
  1093.     *************************************************************************/
  1094.  
  1095.     if ( ( Position.fs & SWP_MINIMIZE ) != ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  1096.     {
  1097.  
  1098.      /***********************************************************************
  1099.       * Hide the controls if no longer minimized.                *
  1100.       ***********************************************************************/
  1101.  
  1102.       HideControls
  1103.       (
  1104.     NOT ( Position.fs & SWP_MINIMIZE ),
  1105.     hwndFrame,
  1106.     Data->hwndSysMenu,
  1107.     Data->hwndTitleBar,
  1108.     Data->hwndMinMax
  1109.       ) ;
  1110.     }
  1111.   }
  1112.  
  1113.   Data->Profile.Position.fs = Position.fs ;
  1114.  
  1115.  /***************************************************************************
  1116.   * We're done.                                                             *
  1117.   ***************************************************************************/
  1118.  
  1119.   return ( 0 ) ;
  1120.  
  1121.   hwnd = hwnd ;
  1122.   msg = msg ;
  1123.   mp1 = mp1 ;
  1124.   mp2 = mp2 ;
  1125. }
  1126.  
  1127. /****************************************************************************
  1128.  *                                        *
  1129.  *    Process SAVE APPLICATION message.                    *
  1130.  *                                        *
  1131.  ****************************************************************************/
  1132.  
  1133. static MRESULT APIENTRY SaveApplication
  1134. (
  1135.   HWND hwnd,
  1136.   USHORT msg,
  1137.   MPARAM mp1,
  1138.   MPARAM mp2
  1139. )
  1140. {
  1141.  /***************************************************************************
  1142.   *                Declarations                    *
  1143.   ***************************************************************************/
  1144.  
  1145.   PDATA Data ;
  1146.  
  1147.  /***************************************************************************
  1148.   * Find the instance data.                            *
  1149.   ***************************************************************************/
  1150.  
  1151.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1152.  
  1153.  /***************************************************************************
  1154.   * Call function to put all profile data out to the system.            *
  1155.   ***************************************************************************/
  1156.  
  1157.   PutProfile ( &Data->Profile ) ;
  1158.  
  1159.  /***************************************************************************
  1160.   * We're done.  Let the system complete default processing.                *
  1161.   ***************************************************************************/
  1162.  
  1163.   return ( WinDefWindowProc ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ) ;
  1164.  
  1165.   hwnd = hwnd ;
  1166.   msg = msg ;
  1167.   mp1 = mp1 ;
  1168.   mp2 = mp2 ;
  1169. }
  1170.  
  1171. /****************************************************************************
  1172.  *                                        *
  1173.  *    Repaint entire window.                            *
  1174.  *                                        *
  1175.  ****************************************************************************/
  1176.  
  1177. static MRESULT APIENTRY Paint
  1178. (
  1179.   HWND hwnd,
  1180.   USHORT msg,
  1181.   MPARAM mp1,
  1182.   MPARAM mp2
  1183. )
  1184. {
  1185.  /***************************************************************************
  1186.   *                Declarations                    *
  1187.   ***************************************************************************/
  1188.  
  1189.   PDATA Data ;
  1190.   HPS hPS ;
  1191.   RECTL Rectangle ;
  1192.  
  1193.  /***************************************************************************
  1194.   * Find the instance data.                            *
  1195.   ***************************************************************************/
  1196.  
  1197.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1198.  
  1199.  /***************************************************************************
  1200.   * Get presentation space and make it use RGB colors.                *
  1201.   ***************************************************************************/
  1202.  
  1203.   hPS = WinBeginPaint ( hwnd, NULL, NULL ) ;
  1204.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  1205.  
  1206.  /***************************************************************************
  1207.   * Clear the window.                                *
  1208.   ***************************************************************************/
  1209.  
  1210.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  1211.  
  1212.   GpiMove ( hPS, (PPOINTL) &Rectangle.xLeft ) ;
  1213.   GpiSetColor ( hPS, Data->Profile.BackColor ) ;
  1214.   GpiBox ( hPS, DRO_FILL, (PPOINTL) &Rectangle.xRight, 0L, 0L ) ;
  1215.  
  1216.  /***************************************************************************
  1217.   * Release presentation space.                         *
  1218.   ***************************************************************************/
  1219.  
  1220.   WinEndPaint ( hPS ) ;
  1221.  
  1222.  /***************************************************************************
  1223.   * Update the window and return.                        *
  1224.   ***************************************************************************/
  1225.  
  1226.   UpdateWindow ( hwnd, Data, TRUE ) ;
  1227.  
  1228.   return ( 0 ) ;
  1229.  
  1230.   hwnd = hwnd ;
  1231.   msg = msg ;
  1232.   mp1 = mp1 ;
  1233.   mp2 = mp2 ;
  1234. }
  1235.  
  1236. /****************************************************************************
  1237.  *                                        *
  1238.  *    Process commands received by Main Window                *
  1239.  *                                        *
  1240.  ****************************************************************************/
  1241.  
  1242. static MRESULT APIENTRY Command
  1243. (
  1244.   HWND hwnd,
  1245.   USHORT msg,
  1246.   MPARAM mp1,
  1247.   MPARAM mp2
  1248. )
  1249. {
  1250.  /***************************************************************************
  1251.   * Local Declarations                                *
  1252.   ***************************************************************************/
  1253.  
  1254.   static METHOD Methods [] =
  1255.   {
  1256.     { IDM_SAVE_APPLICATION, SaveApplication },
  1257.     { IDM_RESET_DEFAULTS,   ResetDefaults   },
  1258.     { IDM_HIDE_CONTROLS,    HideControlsCmd },
  1259.     { IDM_SET_TIMER,        SetTimer        },
  1260.     { IDM_EXIT,         Exit        },
  1261.     { IDM_ABOUT,        About        },
  1262.   } ;
  1263.  
  1264.   USHORT Command ;
  1265.   PDATA Data ;
  1266.   short i ;
  1267.  
  1268.  /***************************************************************************
  1269.   * Find the instance data.                            *
  1270.   ***************************************************************************/
  1271.  
  1272.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1273.  
  1274.  /***************************************************************************
  1275.   * Process indicated command . . .                        *
  1276.   ***************************************************************************/
  1277.  
  1278.   Command = SHORT1FROMMP ( mp1 ) ;
  1279.  
  1280.  /***************************************************************************
  1281.   * Process display item commands.                        *
  1282.   ***************************************************************************/
  1283.  
  1284.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  1285.   {
  1286.     PITEM Item = & Data->Profile.Items [i] ;
  1287.  
  1288.     if ( Command == Item->MenuId )
  1289.     {
  1290.       HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1291.  
  1292.       Item->Flag = Item->Flag ? FALSE : TRUE ;
  1293.  
  1294.       if ( i == ITEM_CPULOAD )
  1295.       {
  1296.     if ( Item->Flag )
  1297.       DosResumeThread ( Data->IdleLoopTID ) ;
  1298.     else
  1299.       DosSuspendThread ( Data->IdleLoopTID ) ;
  1300.       }
  1301.  
  1302.       CheckMenuItem ( hwndFrame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  1303.  
  1304.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1305.  
  1306.       return ( MRFROMSHORT ( 0 ) ) ;
  1307.     }
  1308.   }
  1309.  
  1310.  /***************************************************************************
  1311.   * Dispatch all other commands through the method table.            *
  1312.   ***************************************************************************/
  1313.  
  1314.   return ( DispatchMessage ( hwnd, SHORT1FROMMP(mp1), mp1, mp2, Methods, sizeof(Methods)/sizeof(Methods[0]), NULL ) ) ;
  1315.  
  1316.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1317. }
  1318.  
  1319. /****************************************************************************
  1320.  *                                        *
  1321.  *    Process Reset Defaults menu command.                    *
  1322.  *                                        *
  1323.  ****************************************************************************/
  1324.  
  1325. static MRESULT APIENTRY ResetDefaults
  1326. ( 
  1327.   HWND hwnd, 
  1328.   USHORT msg, 
  1329.   MPARAM mp1, 
  1330.   MPARAM mp2
  1331. )
  1332. {
  1333.  /***************************************************************************
  1334.   * Reset all profile data for this program.                    *
  1335.   ***************************************************************************/
  1336.  
  1337.   PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, NULL, NULL, 0 ) ;
  1338.  
  1339.  /***************************************************************************
  1340.   * Reset the program's presentation parameters.                            *
  1341.   ***************************************************************************/
  1342.  
  1343.   WinRemovePresParam ( hwnd, PP_FONTNAMESIZE ) ;
  1344.   WinRemovePresParam ( hwnd, PP_FOREGROUNDCOLOR ) ;
  1345.   WinRemovePresParam ( hwnd, PP_BACKGROUNDCOLOR ) ;
  1346.  
  1347.  /***************************************************************************
  1348.   * Done.                                    *
  1349.   ***************************************************************************/
  1350.  
  1351.   return ( MRFROMSHORT ( 0 ) ) ;
  1352.  
  1353.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1354. }
  1355.  
  1356. /****************************************************************************
  1357.  *                                        *
  1358.  *    Process Hide Controls menu command.                    *
  1359.  *                                        *
  1360.  ****************************************************************************/
  1361.  
  1362. static MRESULT APIENTRY HideControlsCmd
  1363. ( 
  1364.   HWND hwnd, 
  1365.   USHORT msg, 
  1366.   MPARAM mp1, 
  1367.   MPARAM mp2
  1368. )
  1369. {
  1370.  /***************************************************************************
  1371.   * Local Declarations.                             *
  1372.   ***************************************************************************/
  1373.  
  1374.   PDATA Data ;
  1375.   HWND hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1376.  
  1377.  /***************************************************************************
  1378.   * Find the instance data.                            *
  1379.   ***************************************************************************/
  1380.  
  1381.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1382.  
  1383.  /***************************************************************************
  1384.   * Toggle the Hide Controls setting.                        *
  1385.   ***************************************************************************/
  1386.  
  1387.   Data->Profile.HideControls = Data->Profile.HideControls ? FALSE : TRUE ;
  1388.   Data->Profile.fHideControls = TRUE ;
  1389.  
  1390.  /***************************************************************************
  1391.   * If controls aren't hidden yet, update the menu check-mark.              *
  1392.   ***************************************************************************/
  1393.  
  1394.   if ( Data->Profile.HideControls )
  1395.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1396.  
  1397.  /***************************************************************************
  1398.   * If not minimized right now, hide or reveal the controls.            *
  1399.   ***************************************************************************/
  1400.  
  1401.   if ( NOT ( Data->Profile.Position.fs & SWP_MINIMIZE ) )
  1402.   {
  1403.     HideControls
  1404.     (
  1405.       Data->Profile.HideControls,
  1406.       hwndFrame,
  1407.       Data->hwndSysMenu,
  1408.       Data->hwndTitleBar,
  1409.       Data->hwndMinMax
  1410.     ) ;
  1411.   }
  1412.  
  1413.  /***************************************************************************
  1414.   * If controls are no longer hidden, update the menu check-mark.        *
  1415.   ***************************************************************************/
  1416.  
  1417.   if ( NOT Data->Profile.HideControls )
  1418.     CheckMenuItem ( hwndFrame, FID_SYSMENU, IDM_HIDE_CONTROLS, Data->Profile.HideControls ) ;
  1419.  
  1420.  /***************************************************************************
  1421.   * Done.                                    *
  1422.   ***************************************************************************/
  1423.  
  1424.   return ( MRFROMSHORT ( 0 ) ) ;
  1425.  
  1426.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1427. }
  1428.  
  1429. /****************************************************************************
  1430.  *                                        *
  1431.  *    Process Set Timer menu command.                     *
  1432.  *                                        *
  1433.  ****************************************************************************/
  1434.  
  1435. static MRESULT APIENTRY SetTimer
  1436. ( 
  1437.   HWND hwnd, 
  1438.   USHORT msg, 
  1439.   MPARAM mp1, 
  1440.   MPARAM mp2
  1441. )
  1442. {
  1443.  /***************************************************************************
  1444.   * Local Declarations.                             *
  1445.   ***************************************************************************/
  1446.  
  1447.   PDATA Data ;
  1448.   SETTIMER_PARMS Parms ;
  1449.  
  1450.  /***************************************************************************
  1451.   * Find the instance data.                            *
  1452.   ***************************************************************************/
  1453.  
  1454.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1455.  
  1456.  /***************************************************************************
  1457.   * Invoke the Set Timer dialog.                        *
  1458.   ***************************************************************************/
  1459.  
  1460.   Parms.id = IDD_SET_TIMER ;
  1461.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1462.   Parms.TimerInterval = & Data->Profile.TimerInterval ;
  1463.  
  1464.   WinDlgBox ( HWND_DESKTOP, hwnd, SetTimerProcessor,
  1465.     Data->Library, IDD_SET_TIMER, &Parms ) ;
  1466.  
  1467.  /***************************************************************************
  1468.   * Done.                                    *
  1469.   ***************************************************************************/
  1470.  
  1471.   return ( MRFROMSHORT ( 0 ) ) ;
  1472.  
  1473.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1474. }
  1475.  
  1476. /****************************************************************************
  1477.  *                                        *
  1478.  *    Process About menu command.                        *
  1479.  *                                        *
  1480.  ****************************************************************************/
  1481.  
  1482. static MRESULT APIENTRY About
  1483. ( 
  1484.   HWND hwnd, 
  1485.   USHORT msg, 
  1486.   MPARAM mp1, 
  1487.   MPARAM mp2
  1488. )
  1489. {
  1490.  /***************************************************************************
  1491.   * Local Declarations                                *
  1492.   ***************************************************************************/
  1493.  
  1494.   PDATA Data ;
  1495.   ABOUT_PARMS Parms ;
  1496.  
  1497.  /***************************************************************************
  1498.   * Find the instance data.                            *
  1499.   ***************************************************************************/
  1500.  
  1501.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1502.  
  1503.  /***************************************************************************
  1504.   * Invoke the About dialog.                            *
  1505.   ***************************************************************************/
  1506.  
  1507.   Parms.id = IDD_ABOUT ;
  1508.   Parms.hwndHelp = WinQueryHelpInstance ( hwnd ) ;
  1509.  
  1510.   WinDlgBox ( HWND_DESKTOP, hwnd, AboutProcessor,
  1511.     Data->Library, IDD_ABOUT, &Parms ) ;
  1512.  
  1513.  /***************************************************************************
  1514.   * Done.                                    *
  1515.   ***************************************************************************/
  1516.  
  1517.   return ( MRFROMSHORT ( 0 ) ) ;
  1518.  
  1519.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1520. }
  1521.  
  1522. /****************************************************************************
  1523.  *                                        *
  1524.  *    Process Mouse Button being pressed.                    *
  1525.  *                                        *
  1526.  ****************************************************************************/
  1527.  
  1528. static MRESULT APIENTRY ButtonDown
  1529. (
  1530.   HWND hwnd,
  1531.   USHORT msg,
  1532.   MPARAM mp1,
  1533.   MPARAM mp2
  1534. )
  1535. {
  1536.  /***************************************************************************
  1537.   * Local Declarations                                *
  1538.   ***************************************************************************/
  1539.  
  1540.   PDATA Data ;
  1541.   HWND hwndFrame ;
  1542.   SWP Position ;
  1543.   TRACKINFO TrackInfo ;
  1544.  
  1545.  /***************************************************************************
  1546.   * Find the instance data.                            *
  1547.   ***************************************************************************/
  1548.  
  1549.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1550.  
  1551.  /***************************************************************************
  1552.   * Determine the new window position.                        *
  1553.   ***************************************************************************/
  1554.  
  1555.   memset ( &TrackInfo, 0, sizeof(TrackInfo) ) ;
  1556.  
  1557.   TrackInfo.cxBorder = 1 ;
  1558.   TrackInfo.cyBorder = 1 ;
  1559.   TrackInfo.cxGrid = 1 ;
  1560.   TrackInfo.cyGrid = 1 ;
  1561.   TrackInfo.cxKeyboard = 8 ;
  1562.   TrackInfo.cyKeyboard = 8 ;
  1563.  
  1564.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  1565.  
  1566.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  1567.   TrackInfo.rclTrack.xLeft   = Position.x ;
  1568.   TrackInfo.rclTrack.xRight  = Position.x + Position.cx ;
  1569.   TrackInfo.rclTrack.yBottom = Position.y ;
  1570.   TrackInfo.rclTrack.yTop    = Position.y + Position.cy ;
  1571.  
  1572.   WinQueryWindowPos ( HWND_DESKTOP, &Position ) ;
  1573.   TrackInfo.rclBoundary.xLeft   = Position.x ;
  1574.   TrackInfo.rclBoundary.xRight  = Position.x + Position.cx ;
  1575.   TrackInfo.rclBoundary.yBottom = Position.y ;
  1576.   TrackInfo.rclBoundary.yTop    = Position.y + Position.cy ;
  1577.  
  1578.   TrackInfo.ptlMinTrackSize.x = 0 ;
  1579.   TrackInfo.ptlMinTrackSize.y = 0 ;
  1580.   TrackInfo.ptlMaxTrackSize.x = Position.cx ;
  1581.   TrackInfo.ptlMaxTrackSize.y = Position.cy ;
  1582.  
  1583.   TrackInfo.fs = TF_MOVE | TF_STANDARD | TF_ALLINBOUNDARY ;
  1584.  
  1585.   if ( WinTrackRect ( HWND_DESKTOP, NULL, &TrackInfo ) )
  1586.   {
  1587.     WinSetWindowPos ( hwndFrame, NULL,
  1588.       (SHORT) TrackInfo.rclTrack.xLeft,
  1589.       (SHORT) TrackInfo.rclTrack.yBottom,
  1590.       0, 0, SWP_MOVE ) ;
  1591.   }
  1592.  
  1593.  /***************************************************************************
  1594.   * Return through the default processor, letting window activation        *
  1595.   *   and other system functions occur.                     *
  1596.   ***************************************************************************/
  1597.  
  1598.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1599.  
  1600.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1601. }
  1602.  
  1603. /****************************************************************************
  1604.  *                                        *
  1605.  *    Process Mouse Button having been double-clicked.            *
  1606.  *                                        *
  1607.  ****************************************************************************/
  1608.  
  1609. static MRESULT APIENTRY ButtonDblClick
  1610. (
  1611.   HWND hwnd,
  1612.   USHORT msg,
  1613.   MPARAM mp1,
  1614.   MPARAM mp2
  1615. )
  1616. {
  1617.  /***************************************************************************
  1618.   * Send message to self to stop hiding the controls.                *
  1619.   ***************************************************************************/
  1620.  
  1621.   WinPostMsg ( hwnd, WM_COMMAND,
  1622.     MPFROM2SHORT ( IDM_HIDE_CONTROLS, 0 ),
  1623.     MPFROM2SHORT ( CMDSRC_OTHER, TRUE ) ) ;
  1624.  
  1625.  /***************************************************************************
  1626.   * Return through the default processor, letting window activation        *
  1627.   *   and other system functions occur.                     *
  1628.   ***************************************************************************/
  1629.  
  1630.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1631.  
  1632.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1633. }
  1634.  
  1635. /****************************************************************************
  1636.  *                                        *
  1637.  *    Process Presentation Parameter Changed notification.            *
  1638.  *                                        *
  1639.  ****************************************************************************/
  1640.  
  1641. static MRESULT APIENTRY PresParamChanged
  1642. (
  1643.   HWND hwnd,
  1644.   USHORT msg,
  1645.   MPARAM mp1,
  1646.   MPARAM mp2
  1647. )
  1648. {
  1649.  /***************************************************************************
  1650.   * Local Declarations                                *
  1651.   ***************************************************************************/
  1652.  
  1653.   PDATA Data ;
  1654.   HPS hPS ;
  1655.   ULONG ppid ;
  1656.   RECTL Rectangle ;
  1657.  
  1658.  /***************************************************************************
  1659.   * Find the instance data.                            *
  1660.   ***************************************************************************/
  1661.  
  1662.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1663.  
  1664.  /***************************************************************************
  1665.   * Get the presentation parameter that changed.                *
  1666.   ***************************************************************************/
  1667.  
  1668.   switch ( LONGFROMMP(mp1) )
  1669.   {
  1670.  
  1671.    /*************************************************************************
  1672.     * If font, note the fact that we now have a font to be saved as        *
  1673.     *    part of the configuration.  Get the font metrics and resize        *
  1674.     *    the window appropriately.                        *
  1675.     *************************************************************************/
  1676.  
  1677.     case PP_FONTNAMESIZE:
  1678.     {
  1679.       if ( WinQueryPresParam ( hwnd, PP_FONTNAMESIZE, 0, &ppid,
  1680.     sizeof(Data->Profile.FontNameSize), &Data->Profile.FontNameSize,
  1681.     0 ) )
  1682.       {
  1683.     Data->Profile.fFontNameSize = TRUE ;
  1684.       }
  1685.       else
  1686.       {
  1687.     strcpy ( Data->Profile.FontNameSize, "" ) ;
  1688.     Data->Profile.fFontNameSize = FALSE ;
  1689.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "FontNameSize", NULL, 0 ) ;
  1690.       }
  1691.  
  1692.       hPS = WinGetPS ( hwnd ) ;
  1693.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  1694.       WinDrawText ( hPS, 1, " ", &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  1695.       Data->Width  = Rectangle.xRight - Rectangle.xLeft ;
  1696.       Data->Height = Rectangle.yTop - Rectangle.yBottom ;
  1697.       WinReleasePS ( hPS ) ;
  1698.       ResizeWindow ( hwnd, &Data->Profile ) ;
  1699.       break ;
  1700.     }
  1701.  
  1702.    /*************************************************************************
  1703.     * If background color, note the fact and repaint the window.        *
  1704.     *************************************************************************/
  1705.  
  1706.     case PP_BACKGROUNDCOLOR:
  1707.     {
  1708.       if ( WinQueryPresParam ( hwnd, PP_BACKGROUNDCOLOR, 0, &ppid,
  1709.     sizeof(Data->Profile.BackColor), &Data->Profile.BackColor, 0 ) )
  1710.       {
  1711.     Data->Profile.fBackColor = TRUE ;
  1712.       }
  1713.       else
  1714.       {
  1715.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1716.     Data->Profile.fBackColor = FALSE ;
  1717.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "BackgroundColor", NULL, 0 ) ;
  1718.       }
  1719.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1720.       break ;
  1721.     }
  1722.  
  1723.    /*************************************************************************
  1724.     * If foreground color, note the fact and repaint the window.        *
  1725.     *************************************************************************/
  1726.  
  1727.     case PP_FOREGROUNDCOLOR:
  1728.     {
  1729.       if ( WinQueryPresParam ( hwnd, PP_FOREGROUNDCOLOR, 0, &ppid,
  1730.     sizeof(Data->Profile.TextColor), &Data->Profile.TextColor, 0 ) )
  1731.       {
  1732.     Data->Profile.fTextColor = TRUE ;
  1733.       }
  1734.       else
  1735.       {
  1736.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1737.     Data->Profile.fTextColor = FALSE ;
  1738.     PrfWriteProfileData ( HINI_USERPROFILE, PROGRAM_NAME, "ForegroundColor", NULL, 0 ) ;
  1739.       }
  1740.       WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  1741.       break ;
  1742.     }
  1743.   }
  1744.  
  1745.  /***************************************************************************
  1746.   * Return through the default processor, letting window activation        *
  1747.   *   and other system functions occur.                     *
  1748.   ***************************************************************************/
  1749.  
  1750.   return ( WinDefWindowProc ( hwnd, msg, mp1, mp2 ) ) ;
  1751.  
  1752.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1753. }
  1754.  
  1755. /****************************************************************************
  1756.  *                                        *
  1757.  *    Process System Color Change notification.                *
  1758.  *                                        *
  1759.  ****************************************************************************/
  1760.  
  1761. static MRESULT APIENTRY SysColorChange
  1762. (
  1763.   HWND hwnd,
  1764.   USHORT msg,
  1765.   MPARAM mp1,
  1766.   MPARAM mp2
  1767. )
  1768. {
  1769.  /***************************************************************************
  1770.   * Local Declarations                                *
  1771.   ***************************************************************************/
  1772.  
  1773.   PDATA Data ;
  1774.  
  1775.  /***************************************************************************
  1776.   * Find the instance data.                            *
  1777.   ***************************************************************************/
  1778.  
  1779.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1780.  
  1781.  /***************************************************************************
  1782.   * If we aren't using custom colors, then query for the new defaults.      *
  1783.   ***************************************************************************/
  1784.  
  1785.   if ( NOT Data->Profile.fBackColor )
  1786.   {
  1787.     Data->Profile.BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  1788.   }
  1789.  
  1790.   if ( NOT Data->Profile.fTextColor )
  1791.   {
  1792.     Data->Profile.TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  1793.   }
  1794.  
  1795.  /***************************************************************************
  1796.   * Return value must be NULL, according to the documentation.            *
  1797.   ***************************************************************************/
  1798.  
  1799.   return ( MRFROMP ( NULL ) ) ;
  1800.  
  1801.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1802. }
  1803.  
  1804. /****************************************************************************
  1805.  *                                        *
  1806.  *    Process Query for Keys Help resource id.                *
  1807.  *                                        *
  1808.  ****************************************************************************/
  1809.  
  1810. static MRESULT APIENTRY QueryKeysHelp
  1811. (
  1812.   HWND hwnd,
  1813.   USHORT msg,
  1814.   MPARAM mp1,
  1815.   MPARAM mp2
  1816. )
  1817. {
  1818.  /***************************************************************************
  1819.   * Simply return the ID of the Keys Help panel.                *
  1820.   ***************************************************************************/
  1821.  
  1822.   return ( (MRESULT) IDM_KEYS_HELP ) ;
  1823.  
  1824.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1825. }
  1826.  
  1827. /****************************************************************************
  1828.  *                                        *
  1829.  *    Process Help Manager Error                        *
  1830.  *                                        *
  1831.  ****************************************************************************/
  1832.  
  1833. static MRESULT APIENTRY HelpError
  1834. ( 
  1835.   HWND hwnd, 
  1836.   USHORT msg, 
  1837.   MPARAM mp1, 
  1838.   MPARAM mp2
  1839. )
  1840. {
  1841.  /***************************************************************************
  1842.   * Local Declarations                                *
  1843.   ***************************************************************************/
  1844.  
  1845.   static struct
  1846.   {
  1847.     ULONG Error ;
  1848.     USHORT StringId ;
  1849.   }
  1850.   HelpErrors [] =
  1851.   {
  1852.     { HMERR_NO_FRAME_WND_IN_CHAIN,     IDS_HMERR_NO_FRAME_WND_IN_CHAIN },
  1853.     { HMERR_INVALID_ASSOC_APP_WND,     IDS_HMERR_INVALID_ASSOC_APP_WND },
  1854.     { HMERR_INVALID_ASSOC_HELP_INST,   IDS_HMERR_INVALID_ASSOC_HELP_IN },
  1855.     { HMERR_INVALID_DESTROY_HELP_INST, IDS_HMERR_INVALID_DESTROY_HELP_ },
  1856.     { HMERR_NO_HELP_INST_IN_CHAIN,     IDS_HMERR_NO_HELP_INST_IN_CHAIN },
  1857.     { HMERR_INVALID_HELP_INSTANCE_HDL, IDS_HMERR_INVALID_HELP_INSTANCE },
  1858.     { HMERR_INVALID_QUERY_APP_WND,     IDS_HMERR_INVALID_QUERY_APP_WND },
  1859.     { HMERR_HELP_INST_CALLED_INVALID,  IDS_HMERR_HELP_INST_CALLED_INVA },
  1860.     { HMERR_HELPTABLE_UNDEFINE,        IDS_HMERR_HELPTABLE_UNDEFINE    },
  1861.     { HMERR_HELP_INSTANCE_UNDEFINE,    IDS_HMERR_HELP_INSTANCE_UNDEFIN },
  1862.     { HMERR_HELPITEM_NOT_FOUND,        IDS_HMERR_HELPITEM_NOT_FOUND    },
  1863.     { HMERR_INVALID_HELPSUBITEM_SIZE,  IDS_HMERR_INVALID_HELPSUBITEM_S },
  1864.     { HMERR_HELPSUBITEM_NOT_FOUND,     IDS_HMERR_HELPSUBITEM_NOT_FOUND },
  1865.     { HMERR_INDEX_NOT_FOUND,           IDS_HMERR_INDEX_NOT_FOUND       },
  1866.     { HMERR_CONTENT_NOT_FOUND,           IDS_HMERR_CONTENT_NOT_FOUND     },
  1867.     { HMERR_OPEN_LIB_FILE,           IDS_HMERR_OPEN_LIB_FILE           },
  1868.     { HMERR_READ_LIB_FILE,           IDS_HMERR_READ_LIB_FILE           },
  1869.     { HMERR_CLOSE_LIB_FILE,           IDS_HMERR_CLOSE_LIB_FILE        },
  1870.     { HMERR_INVALID_LIB_FILE,           IDS_HMERR_INVALID_LIB_FILE      },
  1871.     { HMERR_NO_MEMORY,               IDS_HMERR_NO_MEMORY           },
  1872.     { HMERR_ALLOCATE_SEGMENT,           IDS_HMERR_ALLOCATE_SEGMENT      },
  1873.     { HMERR_FREE_MEMORY,           IDS_HMERR_FREE_MEMORY           },
  1874.     { HMERR_PANEL_NOT_FOUND,           IDS_HMERR_PANEL_NOT_FOUND       },
  1875.     { HMERR_DATABASE_NOT_OPEN,           IDS_HMERR_DATABASE_NOT_OPEN     },
  1876.     { 0,                   IDS_HMERR_UNKNOWN           }
  1877.   } ;
  1878.  
  1879.   PDATA Data ;
  1880.   ULONG ErrorCode = (ULONG) LONGFROMMP ( mp1 ) ;
  1881.   int Index ;
  1882.   char Message [200] ;
  1883.   char Title [80] ;
  1884.  
  1885.  /***************************************************************************
  1886.   * Find the instance data.                            *
  1887.   ***************************************************************************/
  1888.  
  1889.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1890.  
  1891.  /***************************************************************************
  1892.   * Find the error code in the message table.                    *
  1893.   ***************************************************************************/
  1894.  
  1895.   Index = 0 ;
  1896.   while ( HelpErrors[Index].Error
  1897.     AND ( HelpErrors[Index].Error != ErrorCode ) )
  1898.   {
  1899.     Index ++ ;
  1900.   }
  1901.  
  1902.  /***************************************************************************
  1903.   * Get the message texts.                            *
  1904.   ***************************************************************************/
  1905.  
  1906.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1907.  
  1908.   WinLoadString ( Data->Anchor, Data->Library, HelpErrors[Index].StringId, sizeof(Message), Message ) ;
  1909.  
  1910.  /***************************************************************************
  1911.   * Display the error message.                            *
  1912.   ***************************************************************************/
  1913.  
  1914.   WinMessageBox
  1915.   (
  1916.     HWND_DESKTOP,
  1917.     hwnd,
  1918.     Message,
  1919.     Title,
  1920.     0,
  1921.     MB_OK | MB_WARNING
  1922.   ) ;
  1923.  
  1924.  /***************************************************************************
  1925.   * Return zero, indicating that the message was processed.            *
  1926.   ***************************************************************************/
  1927.  
  1928.   return ( MRFROMSHORT ( 0 ) ) ;
  1929.  
  1930.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1931. }
  1932.  
  1933. /****************************************************************************
  1934.  *                                        *
  1935.  *    Process "Extended Help Undefined" notification                *
  1936.  *                                        *
  1937.  ****************************************************************************/
  1938.  
  1939. static MRESULT APIENTRY ExtHelpUndefined
  1940. ( 
  1941.   HWND hwnd, 
  1942.   USHORT msg, 
  1943.   MPARAM mp1, 
  1944.   MPARAM mp2
  1945. )
  1946. {
  1947.  /***************************************************************************
  1948.   * Local Declarations                                *
  1949.   ***************************************************************************/
  1950.  
  1951.   PDATA Data ;
  1952.   char Message [200] ;
  1953.   char Title [80] ;
  1954.  
  1955.  /***************************************************************************
  1956.   * Find the instance data.                            *
  1957.   ***************************************************************************/
  1958.  
  1959.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  1960.  
  1961.  /***************************************************************************
  1962.   * Get the message texts.                            *
  1963.   ***************************************************************************/
  1964.  
  1965.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  1966.  
  1967.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR_EXTHELPUNDEFINED, sizeof(Message), Message ) ;
  1968.  
  1969.  /***************************************************************************
  1970.   * Display the error message.                            *
  1971.   ***************************************************************************/
  1972.  
  1973.   WinMessageBox
  1974.   (
  1975.     HWND_DESKTOP,
  1976.     hwnd,
  1977.     Message,
  1978.     Title,
  1979.     0,
  1980.     MB_OK | MB_WARNING
  1981.   ) ;
  1982.  
  1983.  /***************************************************************************
  1984.   * Return zero, indicating that the message was processed.            *
  1985.   ***************************************************************************/
  1986.  
  1987.   return ( MRFROMSHORT ( 0 ) ) ;
  1988.  
  1989.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  1990. }
  1991.  
  1992. /****************************************************************************
  1993.  *                                        *
  1994.  *    Process "Help Subitem Not Found" notification                *
  1995.  *                                        *
  1996.  ****************************************************************************/
  1997.  
  1998. static MRESULT APIENTRY HelpSubitemNotFound
  1999. ( 
  2000.   HWND hwnd, 
  2001.   USHORT msg, 
  2002.   MPARAM mp1, 
  2003.   MPARAM mp2
  2004. )
  2005. {
  2006.  /***************************************************************************
  2007.   * Local Declarations                                *
  2008.   ***************************************************************************/
  2009.  
  2010.   PDATA Data ;
  2011.   int i ;
  2012.   BYTE Format [200] ;
  2013.   BYTE Message [200] ;
  2014.   BYTE Mode [40] ;
  2015.   USHORT Subtopic ;
  2016.   char Title [80] ;
  2017.   USHORT Topic ;
  2018.  
  2019.  /***************************************************************************
  2020.   * Find the instance data.                            *
  2021.   ***************************************************************************/
  2022.  
  2023.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2024.  
  2025.  /***************************************************************************
  2026.   * Get the title text.                             *
  2027.   ***************************************************************************/
  2028.  
  2029.   WinLoadString ( Data->Anchor, Data->Library, IDS_HMERR, sizeof(Title), Title ) ;
  2030.  
  2031.  /***************************************************************************
  2032.   * Format the error message.                            *
  2033.   ***************************************************************************/
  2034.  
  2035.   Topic = (USHORT) SHORT1FROMMP ( mp2 ) ;
  2036.   Subtopic = (USHORT) SHORT2FROMMP ( mp2 ) ;
  2037.  
  2038.   i = SHORT1FROMMP ( mp1 ) ;
  2039.  
  2040.   switch ( i )
  2041.   {
  2042.     case HLPM_FRAME:
  2043.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_FRAME, sizeof(Mode), Mode ) ;
  2044.       break ;
  2045.  
  2046.     case HLPM_MENU:
  2047.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_MENU, sizeof(Mode), Mode ) ;
  2048.       break ;
  2049.  
  2050.     case HLPM_WINDOW:
  2051.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_WINDOW, sizeof(Mode), Mode ) ;
  2052.       break ;
  2053.  
  2054.     default:
  2055.       WinLoadString ( Data->Anchor, Data->Library, IDS_HELPMODE_UNKNOWN, sizeof(Mode), Mode ) ;
  2056.   }
  2057.  
  2058.   WinLoadString ( Data->Anchor, Data->Library, IDS_HELPSUBITEMNOTFOUND, sizeof(Format), Format ) ;
  2059.  
  2060.   sprintf ( Message, Format, Mode, Topic, Subtopic ) ;
  2061.  
  2062.  /***************************************************************************
  2063.   * Display the error message.                            *
  2064.   ***************************************************************************/
  2065.  
  2066.   WinMessageBox
  2067.   (
  2068.     HWND_DESKTOP,
  2069.     hwnd,
  2070.     Message,
  2071.     Title,
  2072.     0,
  2073.     MB_OK | MB_WARNING
  2074.   ) ;
  2075.  
  2076.  /***************************************************************************
  2077.   * Return zero, indicating that the message was processed.            *
  2078.   ***************************************************************************/
  2079.  
  2080.   return ( MRFROMSHORT ( 0 ) ) ;
  2081.  
  2082.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2083. }
  2084.  
  2085. /****************************************************************************
  2086.  *                                        *
  2087.  *    Process Refresh message.                        *
  2088.  *                                        *
  2089.  ****************************************************************************/
  2090.  
  2091. static MRESULT APIENTRY Refresh
  2092. ( 
  2093.   HWND hwnd, 
  2094.   USHORT msg, 
  2095.   MPARAM mp1, 
  2096.   MPARAM mp2
  2097. )
  2098. {
  2099.  /***************************************************************************
  2100.   * Local Declarations                                *
  2101.   ***************************************************************************/
  2102.  
  2103.   PDATA Data ;
  2104.   USHORT Drive ;
  2105.   ULONG Drives ;
  2106.  
  2107.  /***************************************************************************
  2108.   * Find the instance data.                            *
  2109.   ***************************************************************************/
  2110.  
  2111.   Data = (PDATA) WinQueryWindowPtr ( hwnd, QWL_USER ) ;
  2112.  
  2113.  /***************************************************************************
  2114.   * Save the idle counter.                            *
  2115.   ***************************************************************************/
  2116.  
  2117.   Data->IdleCount = LONGFROMMP ( mp1 ) ;
  2118.  
  2119.  /***************************************************************************
  2120.   * Determine if drive mask has changed.                    *
  2121.   ***************************************************************************/
  2122.  
  2123.   DosQCurDisk ( &Drive, &Drives ) ;
  2124.  
  2125.   if ( Drives != Data->Drives )
  2126.   {
  2127.    /*************************************************************************
  2128.     * It has.  First save the display options.                    *
  2129.     *************************************************************************/
  2130.  
  2131.     SaveApplication ( hwnd, WM_SAVEAPPLICATION, 0, 0 ) ;
  2132.  
  2133.    /*************************************************************************
  2134.     * Next, update the drive item list.                     *
  2135.     *************************************************************************/
  2136.  
  2137.     UpdateDriveList ( Data->Anchor, Data->Library, &Data->Profile, Data->Drives ) ;
  2138.  
  2139.    /*************************************************************************
  2140.     * If the controls are hidden, hide the whole window and reveal the        *
  2141.     *    controls.  Otherwise the menu wouldn't get updated correctly.       *
  2142.     *************************************************************************/
  2143.  
  2144.     if ( Data->Profile.HideControls )
  2145.     {
  2146.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT,FALSE), FALSE ) ;
  2147.       HideControls
  2148.       (
  2149.     FALSE,
  2150.     WinQueryWindow ( hwnd, QW_PARENT, FALSE ),
  2151.     Data->hwndSysMenu,
  2152.     Data->hwndTitleBar,
  2153.     Data->hwndMinMax
  2154.       ) ;
  2155.     }
  2156.  
  2157.    /*************************************************************************
  2158.     * Update the menu.                                *
  2159.     *************************************************************************/
  2160.  
  2161.     RebuildDisplayItems ( hwnd, Data ) ;
  2162.  
  2163.    /*************************************************************************
  2164.     * If the controls were supposed to be hidden, hide them once more and   *
  2165.     *    show the window to the world again.                    *
  2166.     *************************************************************************/
  2167.  
  2168.     if ( Data->Profile.HideControls )
  2169.     {
  2170.       HideControls
  2171.       (
  2172.     TRUE,
  2173.     WinQueryWindow ( hwnd, QW_PARENT, FALSE ),
  2174.     Data->hwndSysMenu,
  2175.     Data->hwndTitleBar,
  2176.     Data->hwndMinMax
  2177.       ) ;
  2178.       WinShowWindow ( WinQueryWindow(hwnd,QW_PARENT,FALSE), TRUE ) ;
  2179.     }
  2180.  
  2181.    /*************************************************************************
  2182.     * Save the updated drive mask.                        *
  2183.     *************************************************************************/
  2184.  
  2185.     Data->Drives = Drives ;
  2186.  
  2187.    /*************************************************************************
  2188.     * Resize the window to accommodate the new option list.            *
  2189.     *************************************************************************/
  2190.  
  2191.     ResizeWindow ( hwnd, &Data->Profile ) ;
  2192.   }
  2193.  
  2194.  /***************************************************************************
  2195.   * Update the statistics.                            *
  2196.   ***************************************************************************/
  2197.  
  2198.   UpdateWindow ( hwnd, Data, FALSE ) ;
  2199.  
  2200.  /***************************************************************************
  2201.   * Return zero, indicating that the message was processed.            *
  2202.   ***************************************************************************/
  2203.  
  2204.   return ( MRFROMSHORT ( 0 ) ) ;
  2205.  
  2206.   hwnd = hwnd ;  msg = msg ;  mp1 = mp1 ;  mp2 = mp2 ;
  2207. }
  2208.  
  2209.  
  2210. /****************************************************************************
  2211.  *                                        *
  2212.  *                 Get Profile Data                    *
  2213.  *                                        *
  2214.  ****************************************************************************/
  2215.  
  2216. static void GetProfile ( HAB Anchor, HMODULE Library, PPROFILE Profile )
  2217. {
  2218.  /***************************************************************************
  2219.   * Local Declarations                                *
  2220.   ***************************************************************************/
  2221.  
  2222.   int i ;
  2223.   ULONG Size ;
  2224.  
  2225.  /***************************************************************************
  2226.   * Build the fixed portion of the item list.                    *
  2227.   ***************************************************************************/
  2228.  
  2229.   for ( i=0; i<ITEM_BASE_COUNT; i++ )
  2230.   {
  2231.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_LABEL,
  2232.       sizeof(Items[i].Label), Items[i].Label ) ;
  2233.  
  2234.     WinLoadString ( Anchor, Library, i*2+IDS_SHOW_CLOCK_OPTION,
  2235.       sizeof(Items[i].MenuOption), Items[i].MenuOption ) ;
  2236.  
  2237.     Items[i].Flag = TRUE ;
  2238.     if
  2239.     (
  2240.       PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, Items[i].Name, &Size )
  2241.       AND
  2242.       ( Size == sizeof(Items[i].Flag) )
  2243.       AND
  2244.       PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, Items[i].Name, &Items[i].Flag, &Size )
  2245.     )
  2246.     {
  2247.       ;
  2248.     }
  2249.   }
  2250.  
  2251.  /***************************************************************************
  2252.   * Add items for each drive on the system.                    *
  2253.   ***************************************************************************/
  2254.  
  2255.   UpdateDriveList ( Anchor, Library, Profile, 0 ) ;
  2256.  
  2257.  /***************************************************************************
  2258.   * Get the window's current size and position.                             *
  2259.   ***************************************************************************/
  2260.  
  2261.   memset ( &Profile->Position, 0, sizeof(Profile->Position) ) ;
  2262.   Profile->fPosition = FALSE ;
  2263.   if
  2264.   (
  2265.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "Position", &Size )
  2266.     AND
  2267.     ( Size == sizeof(Profile->Position) )
  2268.     AND
  2269.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "Position", &Profile->Position, &Size )
  2270.   )
  2271.   {
  2272.     Profile->fPosition = TRUE ;
  2273.   }
  2274.  
  2275.  /***************************************************************************
  2276.   * Get the program options.                            *
  2277.   ***************************************************************************/
  2278.  
  2279.   Profile->HideControls = FALSE ;
  2280.   if
  2281.   (
  2282.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Size )
  2283.     AND
  2284.     ( Size == sizeof(Profile->HideControls) )
  2285.     AND
  2286.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "HideControls", &Profile->HideControls, &Size )
  2287.   )
  2288.   {
  2289.     Profile->fHideControls = TRUE ;
  2290.   }
  2291.  
  2292.   Profile->TimerInterval = 1000 ;
  2293.   if
  2294.   (
  2295.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Size )
  2296.     AND
  2297.     ( Size == sizeof(Profile->TimerInterval) )
  2298.     AND
  2299.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "TimerInterval", &Profile->TimerInterval, &Size )
  2300.   )
  2301.   {
  2302.     Profile->fTimerInterval = TRUE ;
  2303.   }
  2304.  
  2305.  /***************************************************************************
  2306.   * Get the presentation parameters.                        *
  2307.   ***************************************************************************/
  2308.  
  2309.   strcpy ( Profile->FontNameSize, "" ) ;
  2310.   Profile->fFontNameSize = FALSE ;
  2311.   if
  2312.   (
  2313.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Size )
  2314.     AND
  2315.     ( Size == sizeof(Profile->FontNameSize) )
  2316.     AND
  2317.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "FontNameSize", &Profile->FontNameSize, &Size )
  2318.   )
  2319.   {
  2320.     Profile->fFontNameSize = TRUE ;
  2321.   }
  2322.  
  2323.   Profile->BackColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_WINDOW, 0L ) ;
  2324.   Profile->fBackColor = FALSE ;
  2325.   if
  2326.   (
  2327.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Size )
  2328.     AND
  2329.     ( Size == sizeof(Profile->BackColor) )
  2330.     AND
  2331.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "BackgroundColor", &Profile->BackColor, &Size )
  2332.   )
  2333.   {
  2334.     Profile->fBackColor = TRUE ;
  2335.   }
  2336.  
  2337.   Profile->TextColor = WinQuerySysColor ( HWND_DESKTOP, SYSCLR_OUTPUTTEXT, 0L ) ;
  2338.   Profile->fTextColor = FALSE ;
  2339.   if
  2340.   (
  2341.     PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Size )
  2342.     AND
  2343.     ( Size == sizeof(Profile->TextColor) )
  2344.     AND
  2345.     PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, "ForegroundColor", &Profile->TextColor, &Size )
  2346.   )
  2347.   {
  2348.     Profile->fTextColor = TRUE ;
  2349.   }
  2350. }
  2351.  
  2352. /****************************************************************************
  2353.  *                                        *
  2354.  *                 Put Profile Data                    *
  2355.  *                                        *
  2356.  ****************************************************************************/
  2357.  
  2358. static void PutProfile ( PPROFILE Profile )
  2359. {
  2360.  /***************************************************************************
  2361.   * Local Declarations                                *
  2362.   ***************************************************************************/
  2363.  
  2364.   int i ;
  2365.  
  2366.  /***************************************************************************
  2367.   * Save the window's current size and position.                            *
  2368.   ***************************************************************************/
  2369.  
  2370.   PrfWriteProfileData
  2371.   (
  2372.     HINI_USERPROFILE,
  2373.     PROGRAM_NAME,
  2374.     "Position",
  2375.     &Profile->Position,
  2376.     (ULONG)sizeof(Profile->Position)
  2377.   ) ;
  2378.  
  2379.  /***************************************************************************
  2380.   * Save the program options.                            *
  2381.   ***************************************************************************/
  2382.  
  2383.   if ( Profile->fHideControls )
  2384.   {
  2385.     PrfWriteProfileData
  2386.     (
  2387.       HINI_USERPROFILE,
  2388.       PROGRAM_NAME,
  2389.       "HideControls",
  2390.       &Profile->HideControls,
  2391.       (ULONG)sizeof(Profile->HideControls)
  2392.     ) ;
  2393.   }
  2394.  
  2395.   if ( Profile->fTimerInterval )
  2396.   {
  2397.     PrfWriteProfileData
  2398.     (
  2399.       HINI_USERPROFILE,
  2400.       PROGRAM_NAME,
  2401.       "TimerInterval",
  2402.       &Profile->TimerInterval,
  2403.       (ULONG)sizeof(Profile->TimerInterval)
  2404.     ) ;
  2405.   }
  2406.  
  2407.  /***************************************************************************
  2408.   * Save the item options.                            *
  2409.   ***************************************************************************/
  2410.  
  2411.   for ( i=0; i<Profile->ItemCount; i++ )
  2412.   {
  2413.     PITEM Item = & Profile->Items [i] ;
  2414.  
  2415.     PrfWriteProfileData
  2416.     (
  2417.       HINI_USERPROFILE,
  2418.       PROGRAM_NAME,
  2419.       Item->Name,
  2420.       &Item->Flag,
  2421.       (ULONG)sizeof(Item->Flag)
  2422.     ) ;
  2423.   }
  2424.  
  2425.  /***************************************************************************
  2426.   * Save the presentation parameters.                        *
  2427.   ***************************************************************************/
  2428.  
  2429.   if ( Profile->fFontNameSize )
  2430.   {
  2431.     PrfWriteProfileData
  2432.     (
  2433.       HINI_USERPROFILE,
  2434.       PROGRAM_NAME,
  2435.       "FontNameSize",
  2436.       Profile->FontNameSize,
  2437.       (ULONG)sizeof(Profile->FontNameSize)
  2438.     ) ;
  2439.   }
  2440.  
  2441.   if ( Profile->fBackColor )
  2442.   {
  2443.     PrfWriteProfileData
  2444.     (
  2445.       HINI_USERPROFILE,
  2446.       PROGRAM_NAME,
  2447.       "BackgroundColor",
  2448.       &Profile->BackColor,
  2449.       (ULONG)sizeof(Profile->BackColor)
  2450.     ) ;
  2451.   }
  2452.  
  2453.   if ( Profile->fTextColor )
  2454.   {
  2455.     PrfWriteProfileData
  2456.     (
  2457.       HINI_USERPROFILE,
  2458.       PROGRAM_NAME,
  2459.       "ForegroundColor",
  2460.       &Profile->TextColor,
  2461.       (ULONG)sizeof(Profile->TextColor)
  2462.     ) ;
  2463.   }
  2464. }
  2465.  
  2466. /****************************************************************************
  2467.  *                                        *
  2468.  *    Scan CONFIG.SYS for a keyword.    Return the value.            *
  2469.  *                                        *
  2470.  ****************************************************************************/
  2471.  
  2472. static PCHAR ScanSystemConfig ( PCHAR Keyword )
  2473. {
  2474.  /***************************************************************************
  2475.   * Local Declarations                                *
  2476.   ***************************************************************************/
  2477.  
  2478.   static char Buffer [500] ;
  2479.   FILE *File ;
  2480.   SEL GlobalSelector ;
  2481.   SEL LocalSelector ;
  2482.   char Path [_MAX_PATH] ;
  2483.   GINFOSEG FAR *pGlobalInfoSeg ;
  2484.  
  2485.  /***************************************************************************
  2486.   * Get the boot drive number from the global information segment.        *
  2487.   ***************************************************************************/
  2488.  
  2489.   DosGetInfoSeg ( &GlobalSelector, &LocalSelector ) ;
  2490.  
  2491.   pGlobalInfoSeg = MAKEPGINFOSEG ( GlobalSelector ) ;
  2492.  
  2493.  /***************************************************************************
  2494.   * Build the CONFIG.SYS path.                            *
  2495.   ***************************************************************************/
  2496.  
  2497.   Path[0] = (char) ( pGlobalInfoSeg->bootdrive + 'A' - 1 ) ;
  2498.   Path[1] = 0 ;
  2499.   strcat ( Path, ":\\CONFIG.SYS" ) ;
  2500.  
  2501.  /***************************************************************************
  2502.   * Open CONFIG.SYS for reading.                        *
  2503.   ***************************************************************************/
  2504.  
  2505.   File = fopen ( Path, "rt" ) ;
  2506.   if ( NOT File )
  2507.   {
  2508.     return ( NULL ) ;
  2509.   }
  2510.  
  2511.  /***************************************************************************
  2512.   * While there're more lines in CONFIG.SYS, read a line and check it.      *
  2513.   ***************************************************************************/
  2514.  
  2515.   while ( fgets ( Buffer, sizeof(Buffer), File ) )
  2516.   {
  2517.  
  2518.    /*************************************************************************
  2519.     * Clean any trailing newline character from the input string.        *
  2520.     *************************************************************************/
  2521.  
  2522.     if ( Buffer[strlen(Buffer)-1] == '\n' )
  2523.     {
  2524.       Buffer[strlen(Buffer)-1] = 0 ;
  2525.     }
  2526.  
  2527.    /*************************************************************************
  2528.     * If keyword starts the line, we've found the line we want.  Close      *
  2529.     *    the file and return a pointer to the parameter text.            *
  2530.     *************************************************************************/
  2531.  
  2532.     if ( NOT strnicmp ( Buffer, Keyword, strlen(Keyword) )
  2533.       AND ( Buffer[strlen(Keyword)] == '=' ) )
  2534.     {
  2535.       fclose ( File ) ;
  2536.       return ( Buffer + strlen(Keyword) + 1 ) ;
  2537.     }
  2538.   }
  2539.  
  2540.  /***************************************************************************
  2541.   * Close the file.  We haven't found the line we wanted.                   *
  2542.   ***************************************************************************/
  2543.  
  2544.   fclose ( File ) ;
  2545.  
  2546.   return ( NULL ) ;
  2547. }
  2548.  
  2549. /****************************************************************************
  2550.  *                                        *
  2551.  *             Resize Client Window                    *
  2552.  *                                        *
  2553.  ****************************************************************************/
  2554.  
  2555. static void ResizeWindow ( HWND hwnd, PPROFILE Profile )
  2556. {
  2557.  /***************************************************************************
  2558.   * Local Declarations                                *
  2559.   ***************************************************************************/
  2560.  
  2561.   SHORT Count ;
  2562.   SHORT fHadToHide = FALSE ;
  2563.   SHORT fHadToRestore = FALSE ;
  2564.   LONG Height ;
  2565.   HPS hPS ;
  2566.   HWND hwndFrame ;
  2567.   short i ;
  2568.   RECTL Rectangle ;
  2569.   char Text [100] ;
  2570.   LONG Widest ;
  2571.  
  2572.  /***************************************************************************
  2573.   * If the window is visible and minimized, restore it invisibly.        *
  2574.   ***************************************************************************/
  2575.  
  2576.   hwndFrame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  2577.  
  2578.   if ( Profile->Position.fs & SWP_MINIMIZE )
  2579.   {
  2580.     if ( WinIsWindowVisible ( hwndFrame ) )
  2581.     {
  2582.       WinShowWindow ( hwndFrame, FALSE ) ;
  2583.       fHadToHide = TRUE ;
  2584.     }
  2585.     WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE ) ;
  2586.     fHadToRestore = TRUE ;
  2587.   }
  2588.  
  2589.  /***************************************************************************
  2590.   * Determine how many items are to be displayed.                *
  2591.   ***************************************************************************/
  2592.  
  2593.   hPS = WinGetPS ( hwnd ) ;
  2594.  
  2595.   Count = 0 ;
  2596.   Widest = 0 ;
  2597.   Height = 0 ;
  2598.  
  2599.   for ( i=0; i<Profile->ItemCount; i++ )
  2600.   {
  2601.     PITEM Item = & Profile->Items [i] ;
  2602.  
  2603.     if ( Item->Flag )
  2604.     {
  2605.       Count ++ ;
  2606.  
  2607.       sprintf ( Text, "%s 1,234,567K", Item->Label ) ;
  2608.  
  2609.       WinQueryWindowRect ( HWND_DESKTOP, &Rectangle ) ;
  2610.  
  2611.       WinDrawText ( hPS, strlen(Text), Text,
  2612.     &Rectangle, 0L, 0L, DT_LEFT | DT_BOTTOM | DT_QUERYEXTENT ) ;
  2613.  
  2614.       Widest = max ( Widest, (Rectangle.xRight-Rectangle.xLeft+1) ) ;
  2615.  
  2616.       Height += Rectangle.yTop - Rectangle.yBottom ;
  2617.     }
  2618.   }
  2619.  
  2620.   WinReleasePS ( hPS ) ;
  2621.  
  2622.  /***************************************************************************
  2623.   * Get the window's current size & position.                               *
  2624.   ***************************************************************************/
  2625.  
  2626.   WinQueryWindowRect ( hwndFrame, &Rectangle ) ;
  2627.  
  2628.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2629.  
  2630.  /***************************************************************************
  2631.   * Adjust the window's width & height.                                     *
  2632.   ***************************************************************************/
  2633.  
  2634.   Rectangle.xRight  = Rectangle.xLeft + Widest ;
  2635.  
  2636.   Rectangle.yTop    = Rectangle.yBottom + Height ;
  2637.  
  2638.  /***************************************************************************
  2639.   * Compute new frame size and apply it.                    *
  2640.   ***************************************************************************/
  2641.  
  2642.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2643.  
  2644.   WinSetWindowPos ( hwndFrame, NULL, 0, 0,
  2645.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2646.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2647.     SWP_SIZE ) ;
  2648.  
  2649.  /***************************************************************************
  2650.   * Return the window to its original state.                    *
  2651.   ***************************************************************************/
  2652.  
  2653.   if ( fHadToRestore )
  2654.   {
  2655.     WinSetWindowPos ( hwndFrame, NULL,
  2656.       Profile->Position.x, Profile->Position.y,
  2657.       Profile->Position.cx, Profile->Position.cy,
  2658.       SWP_MOVE | SWP_SIZE | SWP_MINIMIZE ) ;
  2659.   }
  2660.  
  2661.   if ( fHadToHide )
  2662.   {
  2663.     WinShowWindow ( hwndFrame, TRUE ) ;
  2664.   }
  2665.  
  2666.  /***************************************************************************
  2667.   * Invalidate the window so that it gets repainted.                *
  2668.   ***************************************************************************/
  2669.  
  2670.   WinInvalidateRect ( hwnd, NULL, TRUE ) ;
  2671. }
  2672.  
  2673. /****************************************************************************
  2674.  *                                        *
  2675.  *            Hide Window Controls                    *
  2676.  *                                        *
  2677.  ****************************************************************************/
  2678.  
  2679. static void HideControls
  2680. (
  2681.   BOOL fHide,
  2682.   HWND hwndFrame,
  2683.   HWND hwndSysMenu,
  2684.   HWND hwndTitleBar,
  2685.   HWND hwndMinMax
  2686. )
  2687. {
  2688.  /***************************************************************************
  2689.   * Local Declarations                                *
  2690.   ***************************************************************************/
  2691.  
  2692.   SWP OldPosition ;
  2693.   SWP Position ;
  2694.   RECTL Rectangle ;
  2695.   BOOL WasVisible ;
  2696.  
  2697.  /***************************************************************************
  2698.   * Get original window position and state.                    *
  2699.   ***************************************************************************/
  2700.  
  2701.   WinQueryWindowPos ( hwndFrame, &OldPosition ) ;
  2702.  
  2703.   WasVisible = WinIsWindowVisible ( hwndFrame ) ;
  2704.  
  2705.  /***************************************************************************
  2706.   * Restore and hide the window.                        *
  2707.   ***************************************************************************/
  2708.  
  2709.   WinSetWindowPos ( hwndFrame, NULL, 0, 0, 0, 0, SWP_RESTORE | SWP_HIDE ) ;
  2710.  
  2711.  /***************************************************************************
  2712.   * Determine client window and location.                    *
  2713.   ***************************************************************************/
  2714.  
  2715.   WinQueryWindowPos ( hwndFrame, &Position ) ;
  2716.  
  2717.   Rectangle.xLeft   = Position.x ;
  2718.   Rectangle.xRight  = Position.x + Position.cx ;
  2719.   Rectangle.yBottom = Position.y ;
  2720.   Rectangle.yTop    = Position.y + Position.cy ;
  2721.  
  2722.   WinCalcFrameRect ( hwndFrame, &Rectangle, TRUE ) ;
  2723.  
  2724.  /***************************************************************************
  2725.   * Hide or reveal the controls windows by changing their parentage.        *
  2726.   ***************************************************************************/
  2727.  
  2728.   if ( fHide )
  2729.   {
  2730.     WinSetParent ( hwndSysMenu,  HWND_OBJECT, FALSE ) ;
  2731.     WinSetParent ( hwndTitleBar, HWND_OBJECT, FALSE ) ;
  2732.     WinSetParent ( hwndMinMax,     HWND_OBJECT, FALSE ) ;
  2733.   }
  2734.   else
  2735.   {
  2736.     WinSetParent ( hwndSysMenu,  hwndFrame, TRUE ) ;
  2737.     WinSetParent ( hwndTitleBar, hwndFrame, TRUE ) ;
  2738.     WinSetParent ( hwndMinMax,     hwndFrame, TRUE ) ;
  2739.   }
  2740.  
  2741.  /***************************************************************************
  2742.   * Tell the frame that things have changed.  Let it update the window.     *
  2743.   ***************************************************************************/
  2744.  
  2745.   WinSendMsg ( hwndFrame, WM_UPDATEFRAME,
  2746.     MPFROMSHORT ( FCF_TITLEBAR | FCF_SYSMENU | FCF_MINBUTTON ), 0L ) ;
  2747.  
  2748.  /***************************************************************************
  2749.   * Reposition the frame around the client window, which is left be.        *
  2750.   ***************************************************************************/
  2751.  
  2752.   WinCalcFrameRect ( hwndFrame, &Rectangle, FALSE ) ;
  2753.  
  2754.   WinSetWindowPos ( hwndFrame, NULL,
  2755.     (SHORT) Rectangle.xLeft,  (SHORT) Rectangle.yBottom,
  2756.     (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2757.     (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2758.     SWP_SIZE | SWP_MOVE ) ;
  2759.  
  2760.  /***************************************************************************
  2761.   * If window was maximized, put it back that way.                *
  2762.   ***************************************************************************/
  2763.  
  2764.   if ( OldPosition.fs & SWP_MAXIMIZE )
  2765.   {
  2766.     WinSetWindowPos ( hwndFrame, NULL,
  2767.       (SHORT) Rectangle.xLeft,    (SHORT) Rectangle.yBottom,
  2768.       (SHORT) (Rectangle.xRight-Rectangle.xLeft),
  2769.       (SHORT) (Rectangle.yTop-Rectangle.yBottom),
  2770.       SWP_SIZE | SWP_MOVE |
  2771.       ( OldPosition.fs & SWP_MAXIMIZE ) ) ;
  2772.   }
  2773.  
  2774.  /***************************************************************************
  2775.   * If the window was visible in the first place, show it.            *
  2776.   ***************************************************************************/
  2777.  
  2778.   if ( WasVisible )
  2779.   {
  2780.     WinShowWindow ( hwndFrame, TRUE ) ;
  2781.   }
  2782. }
  2783.  
  2784. /****************************************************************************
  2785.  *                                        *
  2786.  *    Update Window                                *
  2787.  *                                        *
  2788.  ****************************************************************************/
  2789.  
  2790. #pragma optimize ( "gle", off )
  2791.  
  2792. static void UpdateWindow ( HWND hwnd, PDATA Data, BOOL All )
  2793. {
  2794.  /***************************************************************************
  2795.   *                Declarations                    *
  2796.   ***************************************************************************/
  2797.  
  2798.   int Count ;
  2799.   HPS hPS ;
  2800.   short i ;
  2801.   RECTL Rectangle ;
  2802.   char Text [100] ;
  2803.  
  2804.  /***************************************************************************
  2805.   * Determine how many items are to be displayed.                *
  2806.   ***************************************************************************/
  2807.  
  2808.   Count = 0 ;
  2809.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2810.   {
  2811.     if ( Data->Profile.Items[i].Flag )
  2812.     {
  2813.       Count ++ ;
  2814.     }
  2815.   }
  2816.  
  2817.  /***************************************************************************
  2818.   * Get presentation space and make it use RGB colors.                *
  2819.   ***************************************************************************/
  2820.  
  2821.   hPS = WinGetPS ( hwnd ) ;
  2822.   GpiCreateLogColorTable ( hPS, LCOL_RESET, LCOLF_RGB, 0L, 0L, NULL ) ;
  2823.  
  2824.  /***************************************************************************
  2825.   * Get the window's size and determine the initial position.               *
  2826.   ***************************************************************************/
  2827.  
  2828.   WinQueryWindowRect ( hwnd, &Rectangle ) ;
  2829.  
  2830.   Rectangle.xLeft += Data->Width / 2 ;
  2831.   Rectangle.xRight -= Data->Width / 2 ;
  2832.  
  2833.   Rectangle.yBottom = Data->Height * ( Count - 1 ) ;
  2834.   Rectangle.yTop = Rectangle.yBottom + Data->Height ;
  2835.  
  2836.  /***************************************************************************
  2837.   * Review all items.  Display those changed, or all.                *
  2838.   ***************************************************************************/
  2839.  
  2840.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  2841.   {
  2842.     PITEM Item = & Data->Profile.Items [i] ;
  2843.     ULONG NewValue ;
  2844.  
  2845.     if ( Item->Flag )
  2846.     {
  2847.       NewValue = Item->NewValue ( Data, Item->Parm ) ;
  2848.  
  2849.       if ( All OR ( NewValue != Item->Value ) )
  2850.       {
  2851.     switch ( i )
  2852.     {
  2853.       case ITEM_CLOCK:
  2854.       {
  2855.         ULONG Month  = ( NewValue % 100000000L ) / 1000000L ;
  2856.         ULONG Day     = ( NewValue % 1000000L ) / 10000L ;
  2857.         ULONG Hour     = ( NewValue % 10000L ) / 100L ;
  2858.         ULONG Minute = ( NewValue % 100L ) ;
  2859.  
  2860.         switch ( Data->CountryInfo.fsDateFmt )
  2861.         {
  2862.           case DATEFMT_DD_MM_YY:
  2863.         sprintf ( Text, "%02lu%s%02lu ",
  2864.           Day, Data->CountryInfo.szDateSeparator, Month ) ;
  2865.         break ;
  2866.  
  2867.           case DATEFMT_YY_MM_DD:
  2868.           case DATEFMT_MM_DD_YY:
  2869.           default:
  2870.         sprintf ( Text, "%02lu%s%02lu ",
  2871.           Month, Data->CountryInfo.szDateSeparator, Day ) ;
  2872.         break ;
  2873.         }
  2874.  
  2875.         if ( Data->CountryInfo.fsTimeFmt )
  2876.         {
  2877.           sprintf ( Text+strlen(Text), "%02lu%s%02lu",
  2878.         Hour,
  2879.         Data->CountryInfo.szTimeSeparator,
  2880.         Minute ) ;
  2881.         }
  2882.         else
  2883.         {
  2884.           PCHAR AmPm ;
  2885.  
  2886.           if ( Hour )
  2887.           {
  2888.         if ( Hour < 12 )
  2889.         {
  2890.           AmPm = "a" ;
  2891.         }
  2892.         else if ( Hour == 12 )
  2893.         {
  2894.           if ( Minute )
  2895.             AmPm = "p" ;
  2896.           else
  2897.             AmPm = "a" ;
  2898.         }
  2899.         else if ( Hour > 12 )
  2900.         {
  2901.           Hour -= 12 ;
  2902.           AmPm = "p" ;
  2903.         }
  2904.           }
  2905.           else
  2906.           {
  2907.         Hour = 12 ;
  2908.         if ( Minute )
  2909.           AmPm = "a" ;
  2910.         else
  2911.           AmPm = "p" ;
  2912.           }
  2913.           sprintf ( Text+strlen(Text), "%02lu%s%02lu%s",
  2914.         Hour, Data->CountryInfo.szTimeSeparator, Minute, AmPm ) ;
  2915.         }
  2916.         break ;
  2917.       }
  2918.  
  2919.       default:
  2920.       {
  2921.         memset ( Text, 0, sizeof(Text) ) ;
  2922.  
  2923.         if ( NewValue == DRIVE_ERROR )
  2924.         {
  2925.           WinLoadString ( Data->Anchor, Data->Library, IDS_DRIVEERROR, sizeof(Text), Text ) ;
  2926.         }
  2927.         else
  2928.         {
  2929.           if ( Item->Divisor )
  2930.           {
  2931.         if ( NewValue < Item->Divisor * 1000 )
  2932.           sprintf ( Text, "%lu", NewValue ) ;
  2933.         else
  2934.           sprintf ( Text, "%lu", (NewValue+Item->Divisor/2)/Item->Divisor ) ;
  2935.           }
  2936.           else
  2937.           {
  2938.         sprintf ( Text, "%lu", NewValue ) ;
  2939.           }
  2940.  
  2941.           {
  2942.         PCHAR p1, p2 ;
  2943.         CHAR Work[100] ;
  2944.  
  2945.         p1 = Text ;
  2946.         p2 = Work ;
  2947.         while ( *p1 )
  2948.         {
  2949.           *p2 = *p1 ;
  2950.           p1 ++ ;
  2951.           p2 ++ ;
  2952.           if ( *p1 )
  2953.           {
  2954.             if ( strlen(p1) % 3 == 0 )
  2955.             {
  2956.               *p2 = Data->CountryInfo.szThousandsSeparator [0] ;
  2957.               p2 ++ ;
  2958.             }
  2959.           }
  2960.         }
  2961.         *p2 = 0 ;
  2962.         strcpy ( Text, Work ) ;
  2963.           }
  2964.  
  2965.           if ( Item->Divisor )
  2966.           {
  2967.         if ( NewValue < Item->Divisor * 1000 )
  2968.           Text[strlen(Text)] = ' ' ;
  2969.         else
  2970.           Text[strlen(Text)] = Item->Suffix ;
  2971.           }
  2972.           else
  2973.           {
  2974.         Text[strlen(Text)] = Item->Suffix ;
  2975.           }
  2976.         }
  2977.       }
  2978.     }
  2979.  
  2980.     WinDrawText ( hPS, strlen(Text), Text, &Rectangle,
  2981.       Data->Profile.TextColor, Data->Profile.BackColor,
  2982.       DT_RIGHT | DT_BOTTOM | DT_ERASERECT ) ;
  2983.  
  2984.     WinDrawText ( hPS, strlen(Item->Label), Item->Label, &Rectangle,
  2985.       Data->Profile.TextColor, Data->Profile.BackColor,
  2986.       DT_LEFT | DT_BOTTOM ) ;
  2987.  
  2988.     Item->Value = NewValue ;
  2989.       }
  2990.       Rectangle.yBottom -= Data->Height ;
  2991.       Rectangle.yTop    -= Data->Height ;
  2992.     }
  2993.   }
  2994.  
  2995.  /***************************************************************************
  2996.   * Release the presentation space and return.                    *
  2997.   ***************************************************************************/
  2998.  
  2999.   WinReleasePS ( hPS ) ;
  3000. }
  3001.  
  3002. #pragma optimize ( "gle", on )
  3003.  
  3004.  
  3005. /****************************************************************************
  3006.  *                                        *
  3007.  *    Compute Time                                *
  3008.  *                                        *
  3009.  ****************************************************************************/
  3010.  
  3011. static ULONG ComputeTime ( PDATA Data, USHORT Dummy )
  3012. {
  3013.   char DateString [9] ;
  3014.   short Hour, Minute ;
  3015.   short Month, Day ;
  3016.   ULONG Time ;
  3017.   char TimeString [9] ;
  3018.  
  3019.   _strdate ( DateString ) ;
  3020.   _strtime ( TimeString ) ;
  3021.  
  3022.   Hour     = atoi ( TimeString + 0 ) ;
  3023.   Minute = atoi ( TimeString + 3 ) ;
  3024.  
  3025.   Month  = atoi ( DateString + 0 ) ;
  3026.   Day     = atoi ( DateString + 3 ) ;
  3027.  
  3028.   Time = Month ;
  3029.   Time *= 100 ;
  3030.   Time += Day ;
  3031.   Time *= 100 ;
  3032.   Time += Hour ;
  3033.   Time *= 100 ;
  3034.   Time += Minute ;
  3035.  
  3036.   return ( Time ) ;
  3037. }
  3038.  
  3039. /****************************************************************************
  3040.  *                                        *
  3041.  *    Compute Available Memory                            *
  3042.  *                                        *
  3043.  ****************************************************************************/
  3044.  
  3045. static ULONG ComputeFreeMemory ( PDATA Data, USHORT Dummy )
  3046. {
  3047.   ULONG MemFree ;
  3048.  
  3049.   DosMemAvail ( &MemFree ) ;
  3050.  
  3051.   return ( MemFree ) ;
  3052. }
  3053.  
  3054. /****************************************************************************
  3055.  *                                        *
  3056.  *    Compute Swap-File Size                            *
  3057.  *                                        *
  3058.  ****************************************************************************/
  3059.  
  3060. static ULONG ComputeSwapSize ( PDATA Data, USHORT Dummy )
  3061. {
  3062.  /***************************************************************************
  3063.   *                Declarations                    *
  3064.   ***************************************************************************/
  3065.  
  3066.   char Path [_MAX_PATH+1] ;
  3067.   struct stat Status ;
  3068.   ULONG SwapSize ;
  3069.  
  3070.  /***************************************************************************
  3071.   * Find the swap file and find its size.                    *
  3072.   ***************************************************************************/
  3073.  
  3074.   strcpy ( Path, Data->SwapPath ) ;
  3075.  
  3076.   if ( Path[strlen(Path)-1] != '\\' )
  3077.   {
  3078.     strcat ( Path, "\\" ) ;
  3079.   }
  3080.  
  3081.   strcat ( Path, "SWAPPER.DAT" ) ;
  3082.  
  3083.   SwapSize = 0 ;
  3084.   if ( stat ( Path, &Status ) == 0 )
  3085.   {
  3086.     SwapSize = Status.st_size ;
  3087.   }
  3088.  
  3089.   return ( SwapSize ) ;
  3090. }
  3091.  
  3092. /****************************************************************************
  3093.  *                                        *
  3094.  *    Compute Available Swap Space                        *
  3095.  *                                        *
  3096.  ****************************************************************************/
  3097.  
  3098. static ULONG ComputeSwapFree ( PDATA Data, USHORT Dummy )
  3099. {
  3100.  /***************************************************************************
  3101.   *                Declarations                    *
  3102.   ***************************************************************************/
  3103.  
  3104.   FSALLOCATE Allocation ;
  3105.   char Path [_MAX_PATH+1] ;
  3106.   ULONG SwapFree ;
  3107.  
  3108.  /***************************************************************************
  3109.   * Find the swap file and find its size.                    *
  3110.   ***************************************************************************/
  3111.  
  3112.   strcpy ( Path, Data->SwapPath ) ;
  3113.   strcat ( Path, "\\SWAPPER.DAT" ) ;
  3114.  
  3115.  /***************************************************************************
  3116.   * Compute swap device free space.                        *
  3117.   ***************************************************************************/
  3118.  
  3119.   SwapFree = 0 ;
  3120.   if ( Path[0] )
  3121.   {
  3122.     DosQFSInfo ( Path[0]-'A'+1, FSIL_ALLOC,
  3123.       (PBYTE)&Allocation, sizeof(Allocation) ) ;
  3124.  
  3125.     SwapFree = Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ;
  3126.   }
  3127.  
  3128.  /***************************************************************************
  3129.   * Return swap device's free space, less the minimum free space.           *
  3130.   ***************************************************************************/
  3131.  
  3132.   if ( SwapFree < (ULONG)Data->MinFree*1024L )
  3133.     return ( 0L ) ;
  3134.   else
  3135.     return ( SwapFree - (ULONG)Data->MinFree * 1024L ) ;
  3136. }
  3137.  
  3138. /****************************************************************************
  3139.  *                                        *
  3140.  *    Compute Spool-file Size                            *
  3141.  *                                        *
  3142.  ****************************************************************************/
  3143.  
  3144. static ULONG ComputeSpoolSize ( PDATA Data, USHORT Dummy )
  3145. {
  3146.  /***************************************************************************
  3147.   *                Declarations                    *
  3148.   ***************************************************************************/
  3149.  
  3150.   USHORT Count ;
  3151.   FILEFINDBUF *Found ;
  3152.   HDIR hDir = HDIR_CREATE ;
  3153.   BYTE *Path ;
  3154.   USHORT PathSize ;
  3155.   ULONG TotalSize = 0 ;
  3156.  
  3157.  /***************************************************************************
  3158.   * Build file specifier for the spool directory.                *
  3159.   ***************************************************************************/
  3160.  
  3161.   DosQSysInfo ( 0, (PBYTE)&PathSize, sizeof(PathSize) ) ;
  3162.  
  3163.   Path = malloc ( PathSize ) ;
  3164.   if ( Path == NULL )
  3165.   {
  3166.     return ( 0 ) ;
  3167.   }
  3168.  
  3169.   Found = malloc ( PathSize + sizeof(FILEFINDBUF) ) ;
  3170.   if ( Found == NULL )
  3171.   {
  3172.     free ( Path ) ;
  3173.     return ( 0 ) ;
  3174.   }
  3175.  
  3176.   strcpy ( Path, Data->SpoolPath ) ;
  3177.   strcat ( Path, "\\*.*" ) ;
  3178.  
  3179.  /***************************************************************************
  3180.   * If there are any files/directories in the spool directory . . .        *
  3181.   ***************************************************************************/
  3182.  
  3183.   Count = 1 ;
  3184.   if ( !DosFindFirst2 ( Path, &hDir,
  3185.     FILE_NORMAL | FILE_READONLY | FILE_DIRECTORY | FILE_ARCHIVED,
  3186.     Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3187.   {
  3188.  
  3189.    /*************************************************************************
  3190.     * Loop through every entry in the spool directory.                *
  3191.     *************************************************************************/
  3192.  
  3193.     do
  3194.     {
  3195.  
  3196.      /***********************************************************************
  3197.       * Ignore the parent and current directory entries.            *
  3198.       ***********************************************************************/
  3199.  
  3200.       if ( !strcmp ( Found->achName, "." )
  3201.     OR !strcmp ( Found->achName, ".." ) )
  3202.       {
  3203.     continue ;
  3204.       }
  3205.  
  3206.      /***********************************************************************
  3207.       * If the entry is a subdirectory . . .                    *
  3208.       ***********************************************************************/
  3209.  
  3210.       if ( Found->attrFile & FILE_DIRECTORY )
  3211.       {
  3212.  
  3213.        /*********************************************************************
  3214.     * Scan the subdirectory and add every file's size to the total.     *
  3215.     *********************************************************************/
  3216.  
  3217.     HDIR hDir = HDIR_CREATE ;
  3218.  
  3219.     strcpy ( Path, Data->SpoolPath ) ;
  3220.     strcat ( Path, "\\" ) ;
  3221.     strcat ( Path, Found->achName ) ;
  3222.     strcat ( Path, "\\*.*" ) ;
  3223.  
  3224.     Count = 1 ;
  3225.     if ( !DosFindFirst2 ( Path, &hDir,
  3226.       FILE_NORMAL | FILE_READONLY | FILE_ARCHIVED,
  3227.       Found, PathSize+sizeof(FILEFINDBUF), &Count, FIL_STANDARD, 0L ) )
  3228.     {
  3229.       do
  3230.       {
  3231.         TotalSize += Found->cbFileAlloc ;
  3232.       }
  3233.       while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3234.       DosFindClose ( hDir ) ;
  3235.     }
  3236.  
  3237.     Count = 1 ;
  3238.       }
  3239.  
  3240.      /***********************************************************************
  3241.       * Else if it was a file, add its size to the total.            *
  3242.       ***********************************************************************/
  3243.  
  3244.       else
  3245.       {
  3246.     TotalSize += Found->cbFileAlloc ;
  3247.       }
  3248.     }
  3249.     while ( !DosFindNext ( hDir, Found, PathSize+sizeof(FILEFINDBUF), &Count ) ) ;
  3250.  
  3251.    /*************************************************************************
  3252.     * Close the directory scan.                         *
  3253.     *************************************************************************/
  3254.  
  3255.     DosFindClose ( hDir ) ;
  3256.   }
  3257.  
  3258.   free ( Path ) ;
  3259.   free ( Found ) ;
  3260.  
  3261.   return ( TotalSize ) ;
  3262. }
  3263.  
  3264. /****************************************************************************
  3265.  *                                        *
  3266.  *    Compute CPU Load                                *
  3267.  *                                        *
  3268.  ****************************************************************************/
  3269.  
  3270. static ULONG ComputeCpuLoad ( PDATA Data, USHORT Dummy )
  3271. {
  3272.   ULONG Load ;
  3273.  
  3274.   Data->MaxCount = (ULONG) max ( Data->MaxCount, Data->IdleCount ) ;
  3275.  
  3276.   Load = ( ( Data->MaxCount - Data->IdleCount ) * 100 ) / Data->MaxCount ;
  3277.  
  3278.   return ( Load ) ;
  3279. }
  3280.  
  3281. /****************************************************************************
  3282.  *                                        *
  3283.  *    Compute Active Task Count                         *
  3284.  *                                        *
  3285.  ****************************************************************************/
  3286.  
  3287. static ULONG ComputeTaskCount ( PDATA Data, USHORT Dummy )
  3288. {
  3289.   return ( WinQuerySwitchList ( Data->Anchor, NULL, 0 ) ) ;
  3290. }
  3291.  
  3292. /****************************************************************************
  3293.  *                                        *
  3294.  *    Compute Drive Free Space                            *
  3295.  *                                        *
  3296.  ****************************************************************************/
  3297.  
  3298. static ULONG ComputeDriveFree ( PDATA Data, USHORT Drive )
  3299. {
  3300.   FSALLOCATE Allocation ;
  3301.  
  3302.   if ( DosQFSInfo ( Drive, FSIL_ALLOC, (PBYTE)&Allocation, sizeof(Allocation) ) )
  3303.     return ( DRIVE_ERROR ) ;
  3304.  
  3305.   return ( Allocation.cUnitAvail*Allocation.cSectorUnit*Allocation.cbSector ) ;
  3306. }
  3307.  
  3308. /****************************************************************************
  3309.  *                                        *
  3310.  *    Monitor Loop Thread                            *
  3311.  *                                        *
  3312.  ****************************************************************************/
  3313.  
  3314. static void _far _cdecl MonitorLoopThread ( PMONITOR_PARMS Parms )
  3315. {
  3316.  /***************************************************************************
  3317.   * Local Declarations                                *
  3318.   ***************************************************************************/
  3319.  
  3320.   ULONG     Counter ;
  3321.   ULONG     CurrentCounter ;
  3322.   ULONG     DeltaMilliseconds ;
  3323.   BOOL        HiResTimer ;
  3324.   ULONG     LastCounter ;
  3325.   ULONG     LastMilliseconds ;
  3326.   ULONG     Nanoseconds ;
  3327.   PGINFOSEG pGlobalInfoSeg = NULL ;
  3328.   PLINFOSEG pLocalInfoSeg = NULL ;
  3329.   TIMESTAMP Time [2] ;
  3330.  
  3331.  /***************************************************************************
  3332.   * Set this thread's priority as high as it can go.                        *
  3333.   ***************************************************************************/
  3334.  
  3335.   DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, *_threadid  ) ;
  3336.  
  3337.  /***************************************************************************
  3338.   * Get pointer to global information segment, where the time is kept.        *
  3339.   ***************************************************************************/
  3340.  
  3341.   DosGetInfoSeg ( &SELECTOROF(pGlobalInfoSeg), &SELECTOROF(pLocalInfoSeg) ) ;
  3342.  
  3343.  /***************************************************************************
  3344.   * Start up the high resolution timer, if it is available.            *
  3345.   ***************************************************************************/
  3346.  
  3347.   HiResTimer = OpenTimer ( ) ;
  3348.  
  3349.  /***************************************************************************
  3350.   * Loop forever . . .                                *
  3351.   ***************************************************************************/
  3352.  
  3353.   while ( 1 )
  3354.   {
  3355.  
  3356.    /*************************************************************************
  3357.     * Reset the last time and count seen.                    *
  3358.     *************************************************************************/
  3359.  
  3360.     if ( HiResTimer )
  3361.       GetTime ( &Time[0] ) ;
  3362.     else
  3363.       LastMilliseconds = pGlobalInfoSeg->msecs ;
  3364.  
  3365.     LastCounter = *Parms->Counter ;
  3366.  
  3367.    /*************************************************************************
  3368.     * Sleep for a bit.                                *
  3369.     *************************************************************************/
  3370.  
  3371.     DosSleep ( *Parms->Interval ) ;
  3372.  
  3373.    /*************************************************************************
  3374.     * Find out how much time and counts went by.                *
  3375.     *************************************************************************/
  3376.  
  3377.     CurrentCounter = *Parms->Counter ;
  3378.  
  3379.     if ( HiResTimer )
  3380.     {
  3381.       GetTime ( &Time[1] ) ;
  3382.       DeltaMilliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3383.       if ( Nanoseconds >= 500000L )
  3384.     DeltaMilliseconds ++ ;
  3385.     }
  3386.     else
  3387.     {
  3388.       DeltaMilliseconds = pGlobalInfoSeg->msecs - LastMilliseconds ;
  3389.     }
  3390.  
  3391.    /*************************************************************************
  3392.     * Find out how much idle time was counted.    Adjust it to persecond.     *
  3393.     *************************************************************************/
  3394.  
  3395.     Counter = ( (CurrentCounter-LastCounter) * 1000 ) / DeltaMilliseconds ;
  3396.  
  3397.    /*************************************************************************
  3398.     * Tell the owner window to refresh its statistics.                *
  3399.     *************************************************************************/
  3400.  
  3401.     WinPostMsg ( Parms->Owner, WM_REFRESH, MPFROMLONG(Counter), 0L ) ;
  3402.   }
  3403. }
  3404.  
  3405. /****************************************************************************
  3406.  *                                        *
  3407.  *    Update the Item List to reflect changes in the available drives.    *
  3408.  *                                        *
  3409.  ****************************************************************************/
  3410.  
  3411. static VOID UpdateDriveList
  3412. (
  3413.   HAB Anchor,
  3414.   HMODULE Library,
  3415.   PPROFILE Profile,
  3416.   ULONG OldDrives
  3417. )
  3418. {
  3419.  /***************************************************************************
  3420.   * Local Declarations                                *
  3421.   ***************************************************************************/
  3422.  
  3423.   USHORT Count ;
  3424.   USHORT Drive ;
  3425.   ULONG Drives ;
  3426.   SHORT i ;
  3427.   USHORT OldCount ;
  3428.   USHORT OldIndex ;
  3429.   ITEM OldItems [ ITEM_BASE_COUNT + MAX_DRIVES ] ;
  3430.   ULONG Size ;
  3431.  
  3432.   CHAR LabelFormat [80] ;
  3433.   CHAR OptionFormat [80] ;
  3434.  
  3435.  /***************************************************************************
  3436.   * Get format strings.                             *
  3437.   ***************************************************************************/
  3438.  
  3439.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_LABEL, sizeof(LabelFormat), LabelFormat ) ;
  3440.   WinLoadString ( Anchor, Library, IDS_SHOW_DRIVE_FREE_OPTION, sizeof(OptionFormat), OptionFormat ) ;
  3441.  
  3442.  /***************************************************************************
  3443.   * Save the old item list for comparison.                    *
  3444.   ***************************************************************************/
  3445.  
  3446.   OldCount = 0 ;
  3447.   memset ( OldItems, 0, sizeof(OldItems) ) ;
  3448.  
  3449.   if ( OldDrives )
  3450.   {
  3451.     OldCount = Profile->ItemCount ;
  3452.     memcpy ( OldItems, Items, sizeof(OldItems) ) ;
  3453.   }
  3454.  
  3455.  /***************************************************************************
  3456.   * Add items for each drive on the system.                    *
  3457.   ***************************************************************************/
  3458.  
  3459.   Count = ITEM_BASE_COUNT ;
  3460.   OldIndex = ITEM_BASE_COUNT ;
  3461.  
  3462.   DosQCurDisk ( &Drive, &Drives ) ;
  3463.  
  3464.   Drives >>= 2 ;
  3465.   OldDrives >>= 2 ;
  3466.  
  3467.   for ( Drive=3; Drive<MAX_DRIVES; Drive++ )
  3468.   {
  3469.     while ( ( OldIndex < OldCount )
  3470.       AND ( (SHORT)OldItems[OldIndex].MenuId < IDM_SHOW_DRIVE_FREE + Drive ) )
  3471.     {
  3472.       OldIndex ++ ;
  3473.     }
  3474.  
  3475.     if ( Drives & 1 )
  3476.     {
  3477.       if ( OldDrives & 1 )
  3478.       {
  3479.     Items[Count++] = OldItems[OldIndex++] ;
  3480.       }
  3481.       else
  3482.       {
  3483.     if ( CheckDrive ( Drive ) )
  3484.     {
  3485.       sprintf ( Items[Count].Name,         "ShowDrive%c:", Drive+'A'-1 ) ;
  3486.       sprintf ( Items[Count].Label,      LabelFormat,    Drive+'A'-1 ) ;
  3487.       sprintf ( Items[Count].MenuOption, OptionFormat,   Drive+'A'-1 ) ;
  3488.  
  3489.       Items[Count].MenuId = IDM_SHOW_DRIVE_FREE + Drive ;
  3490.       Items[Count].NewValue = ComputeDriveFree ;
  3491.       Items[Count].Parm = Drive ;
  3492.       Items[Count].Divisor = 1024 ;
  3493.       Items[Count].Suffix = 'K' ;
  3494.       Count ++ ;
  3495.     }
  3496.       }
  3497.     }
  3498.  
  3499.     Drives >>= 1 ;
  3500.     OldDrives >>= 1 ;
  3501.   }
  3502.  
  3503.  /***************************************************************************
  3504.   * Save pointer to fixed configuration information.                *
  3505.   ***************************************************************************/
  3506.  
  3507.   Profile->Items = Items ;
  3508.   Profile->ItemCount = Count ;
  3509.  
  3510.  /***************************************************************************
  3511.   * Fetch the display flags for the drives.                    *
  3512.   ***************************************************************************/
  3513.  
  3514.   for ( i=ITEM_BASE_COUNT; i<Profile->ItemCount; i++ )
  3515.   {
  3516.     PITEM Item = & Profile->Items [i] ;
  3517.  
  3518.     Item->Flag = TRUE ;
  3519.     if
  3520.     (
  3521.       PrfQueryProfileSize ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Size )
  3522.       AND
  3523.       ( Size == sizeof(Item->Flag) )
  3524.       AND
  3525.       PrfQueryProfileData ( HINI_PROFILE, PROGRAM_NAME, Item->Name, &Item->Flag, &Size )
  3526.     )
  3527.     {
  3528.       ;
  3529.     }
  3530.   }
  3531. }
  3532.  
  3533. /****************************************************************************
  3534.  *                                        *
  3535.  *    Check to see if drive should be added to display list.            *
  3536.  *                                        *
  3537.  ****************************************************************************/
  3538.  
  3539. static BOOL CheckDrive ( USHORT Drive )
  3540. {
  3541.  /***************************************************************************
  3542.   * Local Declarations                                *
  3543.   ***************************************************************************/
  3544.  
  3545.   USHORT Action ;
  3546.   BOOL     Addit = FALSE ;
  3547.   USHORT Handle ;
  3548.   USHORT Status ;
  3549.   BYTE     Path [3] ;
  3550.  
  3551.  /***************************************************************************
  3552.   * Attempt to open the drive as an entire device.                *
  3553.   ***************************************************************************/
  3554.  
  3555.   Path[0] = (BYTE) ( Drive + 'A' - 1 ) ;
  3556.   Path[1] = ':' ;
  3557.   Path[2] = 0 ;
  3558.  
  3559.   Status = DosOpen ( Path, &Handle, &Action, 0, 0, FILE_OPEN,
  3560.     OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE |
  3561.     OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR, 0 ) ;
  3562.  
  3563.  /***************************************************************************
  3564.   * Process return code.                            *
  3565.   ***************************************************************************/
  3566.  
  3567.   switch ( Status )
  3568.   {
  3569.  
  3570.    /*************************************************************************
  3571.     * No error?  Check to see if removable media (floppies, CDs).  If media *
  3572.     *    can be removed, don't try to monitor it.                            *
  3573.     *************************************************************************/
  3574.  
  3575.     case 0:
  3576.     {
  3577.       BIOSPARAMETERBLOCK BiosParms ;
  3578.       BYTE Command = 0 ;
  3579.  
  3580.       if ( !DosDevIOCtl ( &BiosParms, &Command, DSK_GETDEVICEPARAMS, IOCTL_DISK, Handle ) )
  3581.       {
  3582.     if ( BiosParms.fsDeviceAttr & 1 )  // Must be FIXED drive.
  3583.     {
  3584.       Addit = TRUE ;
  3585.     }
  3586.       }
  3587.       DosClose ( Handle ) ;
  3588.       break ;
  3589.     }
  3590.  
  3591.    /*************************************************************************
  3592.     * Drive not ready?    Had to be a floppy or CD-ROM without a disk in it.  *
  3593.     *    We don't monitor floppies nor CDs.                                  *
  3594.     *************************************************************************/
  3595.  
  3596.     case ERROR_NOT_READY:
  3597.       break ;
  3598.  
  3599.    /*************************************************************************
  3600.     * Path not found, or bad network name?  Had to be a network drive        *
  3601.     *    that was still defined but had lost its session.  Don't watch it,   *
  3602.     *    since it will have to be disconnected and then reconnected in order *
  3603.     *    to work.                                *
  3604.     *************************************************************************/
  3605.  
  3606.     case ERROR_PATH_NOT_FOUND:
  3607.     case ERROR_BAD_NET_NAME:
  3608.       break ;
  3609.  
  3610.    /*************************************************************************
  3611.     * Not allowed access to the drive?    Must have been a live network drive,*
  3612.     *    which rarely allows a remote user to open the drive as a device.    *
  3613.     *    We can, however, monitor the thing.                    *
  3614.     *************************************************************************/
  3615.  
  3616.     case ERROR_NETWORK_ACCESS_DENIED:    // IBM LAN Manager
  3617.     case ERROR_INVALID_ACCESS:        // Novell File Server
  3618.     case ERROR_NOT_SUPPORTED:        // TCP/IP
  3619.     case ERROR_OPEN_FAILED:
  3620.       Addit = TRUE ;
  3621.       break ;
  3622.  
  3623.    /*************************************************************************
  3624.     * Some other error?  Tell me about it.                    *
  3625.     *************************************************************************/
  3626.  
  3627.     default:
  3628.       Debug ( HWND_DESKTOP, "Unable to open drive '%s'.  Status=%04X.  "
  3629.     "Tell the author about it at CIS 72607,3111.",
  3630.     Path, Status ) ;
  3631.   }
  3632.  
  3633.  /***************************************************************************
  3634.   * Return the final verdict.                            *
  3635.   ***************************************************************************/
  3636.  
  3637.   return ( Addit ) ;
  3638. }
  3639.  
  3640. /****************************************************************************
  3641.  *                                        *
  3642.  *    Rebuild the Display Items submenu.                    *
  3643.  *                                        *
  3644.  ****************************************************************************/
  3645.  
  3646. static VOID RebuildDisplayItems ( HWND hwnd, PDATA Data )
  3647. {
  3648.  /***************************************************************************
  3649.   * Local Declarations                                *
  3650.   ***************************************************************************/
  3651.  
  3652.   HWND       Frame ;
  3653.   SHORT    i ;
  3654.   HWND       ItemMenu ;
  3655.   MENUITEM MenuItem ;
  3656.   HWND       SysMenu ;
  3657.  
  3658.  /***************************************************************************
  3659.   * Find the item menu's handle.                                            *
  3660.   ***************************************************************************/
  3661.  
  3662.   Frame = WinQueryWindow ( hwnd, QW_PARENT, FALSE ) ;
  3663.  
  3664.   SysMenu = WinWindowFromID ( Frame, FID_SYSMENU ) ;
  3665.  
  3666.   WinSendMsg ( SysMenu, MM_QUERYITEM,
  3667.     MPFROM2SHORT ( IDM_DISPLAY_ITEMS, TRUE ),
  3668.     (MPARAM) &MenuItem ) ;
  3669.   ItemMenu = MenuItem.hwndSubMenu ;
  3670.  
  3671.  /***************************************************************************
  3672.   * Remove all items from the menu.                        *
  3673.   ***************************************************************************/
  3674.  
  3675.   if ( WinSendMsg ( ItemMenu, MM_QUERYITEMCOUNT, 0, 0 ) )
  3676.   {
  3677.     USHORT Id ;
  3678.     SHORT ItemsLeft ;
  3679.  
  3680.     do
  3681.     {
  3682.       Id = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_ITEMIDFROMPOSITION,
  3683.     0, 0 ) ) ;
  3684.  
  3685.       ItemsLeft = SHORT1FROMMR ( WinSendMsg ( ItemMenu, MM_DELETEITEM,
  3686.     MPFROM2SHORT(Id,FALSE), 0 ) ) ;
  3687.     }
  3688.     while ( ItemsLeft ) ;
  3689.   }
  3690.  
  3691.  /***************************************************************************
  3692.   * Prepare menu item structure for use.                    *
  3693.   ***************************************************************************/
  3694.  
  3695.   MenuItem.iPosition = MIT_END ;
  3696.   MenuItem.afStyle = MIS_TEXT ;
  3697.   MenuItem.afAttribute = 0 ;
  3698.   MenuItem.hwndSubMenu = NULL ;
  3699.   MenuItem.hItem = 0L ;
  3700.  
  3701.  /***************************************************************************
  3702.   * Add all menu items called for.                        *
  3703.   ***************************************************************************/
  3704.  
  3705.   for ( i=0; i<Data->Profile.ItemCount; i++ )
  3706.   {
  3707.     PITEM Item = & Data->Profile.Items [i] ;
  3708.  
  3709.     MenuItem.id = Item->MenuId ;
  3710.  
  3711.     AddSysSubMenuItem ( Frame, IDM_DISPLAY_ITEMS, &MenuItem, Item->MenuOption ) ;
  3712.  
  3713.     CheckMenuItem ( Frame, FID_SYSMENU, Item->MenuId, Item->Flag ) ;
  3714.   }
  3715.  
  3716.  /***************************************************************************
  3717.   * Split the menu if it's too tall.                                        *
  3718.   ***************************************************************************/
  3719.  
  3720.   if ( Data->Profile.ItemCount > 15 )
  3721.   {
  3722.     USHORT Midpoint = ( Data->Profile.ItemCount + 1 ) / 2 ;
  3723.     USHORT Id = Data->Profile.Items[Midpoint].MenuId ;
  3724.     MENUITEM MenuItem ;
  3725.  
  3726.     if ( WinSendMsg ( ItemMenu, MM_QUERYITEM, MPFROM2SHORT(Id,FALSE), &MenuItem ) )
  3727.     {
  3728.       MenuItem.afStyle |= MIS_BREAKSEPARATOR ;
  3729.       WinSendMsg ( ItemMenu, MM_SETITEM, MPFROM2SHORT(0,FALSE), &MenuItem ) ;
  3730.     }
  3731.   }
  3732. }
  3733.  
  3734. /****************************************************************************
  3735.  *                                        *
  3736.  *             Calibrate the Load Meter                *
  3737.  *                                        *
  3738.  ****************************************************************************/
  3739.  
  3740. static ULONG CalibrateLoadMeter ( void )
  3741. {
  3742.  /***************************************************************************
  3743.   * Local Declarations                                *
  3744.   ***************************************************************************/
  3745.  
  3746.   double    AdjustedMaxLoad = 0.0 ;
  3747.   ULONG     MaxLoad ;
  3748.   ULONG     Milliseconds ;
  3749.   ULONG     Nanoseconds ;
  3750.   TID        tidCalibrate ;
  3751.   TIMESTAMP    Time[2] ;
  3752.  
  3753.  /***************************************************************************
  3754.   * If HRTIMER.SYS has been installed . . .                    *
  3755.   ***************************************************************************/
  3756.  
  3757.   if ( OpenTimer ( ) )
  3758.   {
  3759.    /*************************************************************************
  3760.     * Increase this thread's priority to the maximum.                       *
  3761.     *************************************************************************/
  3762.  
  3763.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM, *_threadid ) ;
  3764.  
  3765.    /*************************************************************************
  3766.     * Create the calibration thread and set its priority next highest.        *
  3767.     *************************************************************************/
  3768.  
  3769.     tidCalibrate = _beginthread ( CounterThread, NULL, 1024, &MaxLoad ) ;
  3770.     DosSetPrty ( PRTYS_THREAD, PRTYC_TIMECRITICAL, PRTYD_MAXIMUM-1, tidCalibrate ) ;
  3771.     DosSuspendThread ( tidCalibrate ) ;
  3772.  
  3773.    /*************************************************************************
  3774.     * Reset the calibration count, get the time, and let the counter go.    *
  3775.     *************************************************************************/
  3776.  
  3777.     MaxLoad = 0 ;
  3778.     GetTime ( &Time[0] ) ;
  3779.     DosResumeThread ( tidCalibrate ) ;
  3780.  
  3781.    /*************************************************************************
  3782.     * Sleep for one second.                            *
  3783.     *************************************************************************/
  3784.  
  3785.     DosSleep ( 1000 ) ;
  3786.  
  3787.    /*************************************************************************
  3788.     * Suspend the calibration counter and get the time.             *
  3789.     *************************************************************************/
  3790.  
  3791.     DosSuspendThread ( tidCalibrate ) ;
  3792.     GetTime ( &Time[1] ) ;
  3793.  
  3794.    /*************************************************************************
  3795.     * Return priorities to normal.                        *
  3796.     *************************************************************************/
  3797.  
  3798.     DosSetPrty ( PRTYS_THREAD, PRTYC_REGULAR, 0, *_threadid ) ;
  3799.  
  3800.    /*************************************************************************
  3801.     * Get the elapsed time and adjust the calibration count.            *
  3802.     *************************************************************************/
  3803.  
  3804.     Milliseconds = ElapsedTime ( &Time[0], &Time[1], &Nanoseconds ) ;
  3805.  
  3806.     AdjustedMaxLoad = (double)MaxLoad * 1.0E9 ;
  3807.     AdjustedMaxLoad /= (double)Milliseconds*1.0E6L + (double)Nanoseconds ;
  3808.  
  3809.    /*************************************************************************
  3810.     * Close down the connection to HRTIMER.SYS.                 *
  3811.     *************************************************************************/
  3812.  
  3813.     CloseTimer ( ) ;
  3814.   }
  3815.  
  3816.  /***************************************************************************
  3817.   * Return the adjusted calibration count.  If HRTIMER was not there, it    *
  3818.   *   will be zero.                                *
  3819.   ***************************************************************************/
  3820.  
  3821.   return ( (ULONG)AdjustedMaxLoad ) ;
  3822. }
  3823.  
  3824. /****************************************************************************
  3825.  *                                        *
  3826.  *              General Purpose Counter Thread                *
  3827.  *                                        *
  3828.  ****************************************************************************/
  3829.  
  3830. static void _far _cdecl CounterThread ( PULONG Counter )
  3831. {
  3832.   while ( 1 )
  3833.   {
  3834.     (*Counter) ++ ;
  3835.   }
  3836. }
  3837.